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BURROUGHS EXTENSIONS TO ANSI 74 COBOL 


Programming applications are written in the COBOL74 language as specified in this B 1000 Systems 
COBOL74 Reference Manual. The source language herein described is the USA Standard COBOL, 
X3.23-1974, which implements the lowest defined level of the Report Writer Module, and also the high- 
est defined level of these Modules: Nucleus, Table Handling, Sequential I-O, Relative I-O, Indexed I-O, 
Inter-Program Communication, and Communication 
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INTRODUCTION 


This manual provides a complete description of COBOL74 (COmmon Business Oriented Language) as 
implemented for use on the Burroughs B 1000 System. This concept of COBOL74 is designed along 
the guidelines of the American National Standards Institute (ANSI) 1974. This edition contains changes 
throughout. 


COBOL74 ADVANTAGES 


The long list of COBOL74 advantages is derived chiefly from its intrinsic quality of permitting the 
programmer to state the problem solution in English prose, and thus provide automatic program and 
system documentation. When users adopt in-house standardization of elements within files plus well- 
chosen data-names before attempting to program a system, maximum documentational advantages of 
the language described herein are obtained. 
To a computer user, Burroughs COBOL74 offers the following major advantages: 

1. Expeditious means of program implementation. 


2. Accelerated programmer training and simplified retraining requirements. 


3. Reduced conversion costs when changing from a computer of one manufacturer to that of an- 
other. 


4. Significant ease of program modification. 
5. Standardized documentation. 


6. Documentation which facilitates nontechnical management participation in data processing ac- 
tivities. 


7. Efficient object program code. 


8. Segmentation capability which sets the maximum allowable program size well in excess of any 
practical requirement. 


9. Because of the incorporation of debugging language statements, a high degree of sophistication 
in program design is achieved. 


10. A comprehensive source program diagnostic capability. 


COBOL74 CONCEPTS 


A program written in COBOL74, called a source program, is accepted as input by the COBOL74 com- 
piler. The compiler verifies that each source statement is syntactically correct, and then converts them 
into COBOL74 S-code. 


The executable program can then be executed on the B 1000 System using the COBOL74 interpreter. 


The interpreter causes the system hardware to perform the operations specified by the S-code and thus 
the source program. 
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The B 1000 COBOL74 compiler operates under the control of the Master Control Program (MCP). 
Similarly, the S-code generated by the compiler is executed under control of the MCP. 


A COBOL program that was compiled with the ANSI 68 COBOL compiler must be recompiled with 
the COBOL74 compiler in order to run with the COBOL74 interpreter. 


ORGANIZATION 


This manual consists of 11 sections and 7 appendices: 


Section | Contents 
1 PROGRAM ORGANIZATION 


Introduces the four divisions of a COBOL source 
program and describes the major functions of each. 


2 LANGUAGE CONCEPTS 


The rules for creating a COBOL74 source program are 
defined in this section. 


3 CODING FORM 


The standard format of the COBOL74 coding form and 
the rules for spacing are described in this section. 


4 IDENTIFICATION DIVISION 


The structure of the IDENTIFICATION DIVISION and 
the rules for coding are given. 


5 ENVIRONMENT DIVISION 


The structure of the ENVIRONMENT DIVISION and the 
rules for coding are given. 


6 - DATA DIVISION 
The four sections of the DATA DIVISION are described. 
y PROCEDURE DIVISION 


The rules for coding and structuring the PROCEDURE 
DIVISION are given. 


8 FILE ATTRIBUTES 


The file attribute names and the rules for changing © 
attributes are given. 


9 DATA BASE MANAGEMENT 


This section contains the verbs and constructs of 
COBOL74 that are available for interfacing with DMSII. 


10 DEBUG 


Contains an explanation of the debug facilities 
available. 


11 COBOL74 COMPILER CONTROL 


Compiler options which are available in the COBOL74 
compiler are explained. 


XXil 


B 1000 Systems COBOL74 Language Manual 
Introduction 


a nn 


Appendix Contents 
A RESERVED WORDS > 
B COBOL74 SYNTAX SUMMARY 
C COBOL74 GRAPHICS 
D GLOSSARY 
E COBOL74 S-LANGUAGE 
F COMMUNICATION CONCEPTS AND EXAMPLES 
G COBOL74 ISAM FILE CONCEPTS 


RELATED DOCUMENTS 
The following documents are referenced in this document: 
B 1000 Systems System Software Operation Guide, Volume 1, form number 1151982. 
B 1000 Systems System Software Operation Guide, Volume 2, form number 1152097. 
B 1000 Systems Data Management System II (DMSII) Reference Manual, form number 1152089. 


B 1000 Systems Burroughs Network Architecture (BNA) Installation and Operation Manual, form 
number 1151974. 


B 1000 Systems Network Definition Language (NDL) Reference Manual, form number 1152014. 


B 1000 Systems SMCS Installation, Operation and Functional Description Manual, form number 
1152279. 


1168622 XXili 


B 1000 Systems COBOL74 Language Manual 


SECTION 1 
PROGRAM ORGANIZATION 


COBOL74 SOURCE PROGRAM DIVISIONS 


Every COBOL74 source program must contain these four divisions in the following order: 


IDENTIFICATION 
ENVIRONMENT 
DATA 
PROCEDURE 


The IDENTIFICATION DIVISION identifies the program. In addition to required information, the 
programmer. may include such optional pieces of information as the date compiled and programmer's 
name for documentation purposes. This division is completely machine-independent and does not pro- 
duce object code. 


The ENVIRONMENT DIVISION specifies the equipment being used. It contains computer descriptions 
and some information about the files the program will use. 


The DATA DIVISION contains not only file and record descriptions describing the data files that the 
object program manipulates or creates, but also the individual logical records which comprise these 
files. The characteristics ‘or properties of the data are described in relation to a standard data format 
rather than an equipment-oriented format. Therefore, this division is to a large extent, computer-inde- 
pendent. While compatibility among computers cannot be absolutely assured, careful planning in the 
data layout will permit the same data descriptions, with minor modification, to apply to more than 
one computer. 


The PROCEDURE DIVISION specifies user-supplied steps for computer execution. These steps are ex- 
pressed in terms of meaningful English words, statements, sentences, and paragraphs. This division of 
a COBOL74 program is often referred to as the “program.” In reality, it is only part of the total pro- 
- gram, and alone is insufficient to describe the entire program. This is true because repeated references 
must be made (either explicitly or implicitly) to information appearing in the other divisions. This divi- 
sion, more than any other, allows the user to express thoughts in meaningful English. Concepts of 
verbs to denote actions, and sentences to describe procedures aré basic, as is the use of conditional 
statements to provide alternative paths of action. 
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REQUIRED HEADERS 


The standard for COBOL74 requires that a program consist of certain divisions, sections, and fixed 
paragraph names known as headers. 


The following elements are the minimum required for a COBOL74 program: 


IDENTIFICATION DIVISION. 
PROGRAM-ID. MINIMUM. 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 


SOURCE-COMPUTER. B-1000. 
OBJECT-COMPUTER. B-1000. 
DATA DIVISION. 
PROCEDURE DIVISION. 
PARAGRAPH-NAME . 
STOP RUN. 
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SECTION 2 
LANGUAGE CONCEPTS 


GENERAL 


As stated in section 1, COBOL74 is a language based on English and is composed of words, state- 
ments, sentences, and paragraphs. The following paragraphs define the rules to be followed in the 
creation of this language. The use of the different constructs formed from the created words is covered 
in subsequent sections of this document. 


LANGUAGE DESCRIPTION NOTATION 


A nearly universal form of notation exists for COBOL reference manuals. This manual uses that nota- 
tion as described in the paragraphs that follow. 


The apostrophe (') is used to delimit characters with specific meanings. Other than its use in this 
manual as a delimiter, it has no specific use in the COBOL language. 


Key Words 


All underlined upper-case words are key words and are required when utilizing related functions. Omis- 
sions of key words will cause error conditions at compilation time. An example of key words follows: 


: NUMERIC 
IF  dataname IS [NOT] ‘ RUMERIC marie) 


The key words are IF, NOT, NUMERIC, and ALPHABETIC. 
Optional Words 


All upper-case words not underlined are optional words included for readability only and may be in- 
cluded or excluded in the source program. In the preceding example, the optional word is IS. 


Generic Terms 


All lower-case words represent generic terms which are used to represent COBOL words, literals, PIC- 
TURE character-strings, comment-entries, or a complete syntactical entry that must be supplied in that 
format position by the programmer. Where generic terms are repeated in a general format, a number 
or letter appendage to the term serves to identify that term for explanation or discussion. Identifier- 
1 and identifier-2 are generic terms in the following example: 


MOVE identifier-1 TO identifier-2 
Braces 
The following symbols are braces: { }. When words or phrases are enclosed in braces, a choice of 


one of the entries must be made. In the previous example in the subsection titled Key Words, either 
NUMERIC or ALPHABETIC must be included in the statement. 
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Brackets 


The following symbols are brackets: { ]. Words and phrases enclosed in brackets represent optional 
portions of a statement. A programmer wishing to include the optional feature may do so by including 
the entry shown between brackets. Otherwise, the optional portion may be omitted. ( [NOT] in the 
example titled Key Words, is optional.) 


Level-Numbers 


When specific level-numbers appear in data description entry formats, those specific level-numbers are 
required when such entries are used in a COBOL74 program. In this document, the form 01, 02, ... 
, 09 is used to indicate level-numbers 1 through 9. . 


Ellipsis 


The presence of the ellipsis (three consecutive periods (...) ) within any format indicates the position 
at which repetition may occur at the programmer’s option. The portion of the format that may be 
repeated is defined in the following paragraph. 


The ellipsis applies to the words between the determined pair of of delimiters. Given the ellipsis in 
a clause or statement format, scanning right to left, determine the right bracket or right brace immedi- 
ately to the left of the ...; continue scanning right to left and determine the logically matching left 
bracket or left brace. 


Format Punctuation 


The separators comma and semicolon are used to improve the readability of the program. Suggested 
uses are shown in General Format subsections throughout this manual, however, use of these separators 
is optional. In the source program, the comma, semicolon, and space separators are interchangeable. 
If desired, a semicolon or comma may be used between statements in the PROCEDURE DIVISION. 


Paragraphs within the IDENTIFICATION and PROCEDURE DIVISIONS and entries within the EN- 
VIRONMENT and DATA DIVISIONS must be terminated by the separator period. When a single pe- 
riod is shown in a format, it must appear in the same position whenever the source program. calls for 
the use of that particular statement. 


Special Characters in Formats 


The characters '+', '-’, '>’, '<’', '=', when appearing in formats, although not underlined, are 
required when such formats are used. 


CHARACTER SET 

The COBOL74 character set for the B 1000 System consists of the following 52 characters: 
0 through 9 ' period or decimal point 
A through Z : semicolon ee | 


_blank or space quotation mark 


+ plus sign ( left parenthesis 

— minus sign or hyphen ) right parenthesis 

. asterisk > greater than symbol 
slash < less than symbol 

= equal sign @ “at” sign 

$ currency sign ; comma 
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Characters Used for Words 


The character set for words consists of the following 37 characters: 


0 through 9 
A through Z . ; 
— (hyphen) 

Punctuation Characters 


The following characters may be used for program punctuation: 


@ "at" sign space or blank 
i quotation mark . period | 
- ( left parenthesis » comma (see following note) 
) right parenthesis ; semicolon 
NOTE 


For enchanced readability of the source program, commas may be used be- 
tween statements, at the programmer’s discretion. Use of commas implies 
that any succeeding statement is to be included as an element of the prior 
statement. 


Editing Characters 


The COBOL74 compiler accepts the following characters in editing: 


$ currency sign | + plus 

* asterisk (check protect) — minus 

; comma CR credit 

/ slash DB _ debit 

B_ space or blank insert Z zero suppress 
QO zero insert : period 


Characters Used in Arithmetic Expressions 


The COBOL 74 compiler accepts the following characters in arithmetic expressions: 


+ addition bias exponentiation 
— subtraction ( left parenthesis. 
* multiplication ) right parenthesis 


i division 
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Characters Used in Relation Conditions 


The COBOL74 compiler accepts the following characters in relation conditions: 


equal sign 


< less than symbol 
> greater than symbol 


LANGUAGE STRUCTURE 


The individual characters of the language are concatenated to form character-strings and separators. 
A separator may be concatenated with another separator or with a character-string. A character-string 
may only be concatenated with a separator. The concatenation of character-strings and separators 
forms the text of a source program. 


Separators 


A separator is a string of one or more punctuation characters. The rules for formation of separators 


are: 
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. The punctuation character space is a separator. Anywhere a space is used as a separator, more 


than one space may be used. 


. The punctuation characters comma, semicolon, and period are separators. 


. The punctuation character quotation mark is a separator. An opening quotation mark must be 


immediately preceded by one of the separators space, comma, semicolon, or left parenthesis; 
a closing quotation mark must be immediately followed by one of the separators space, comma, 
semicolon, period, or right parenthesis. 


Quotation marks may appear only in balanced pairs delimiting nonnumeric literals except when 
the literal is continued. 


. The punctuation characters right and left parentheses are separators. Parentheses may appear 


only in balanced pairs of left and right parentheses delimiting subscripts, indices, arithmetic ex- 
pressions, or conditions. 


. Pseudo-text delimiters are separators. An opening pseudo-text delimiter must be immediately 


preceded by a space; a closing pseudo-text delimiter must be immediately followed by one of 
the separators space, comma, semicolon, or period. 


Pseudo-text delimiters (—) may appear only in balanced pairs delimiting pseudo-text. 


. The punctuation character @ is a separator. An opening @ character must be preceded immedi- 


ately by one of the separators space, comma, semicolon, or left parenthesis; a closing @ charac- 
ter must be immediately followed by one of the separators space, comma, semicolon, period, 
or right parenthesis. 


At signs (@) may appear only in balanced pairs delimiting hexadecimal literals. 
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7. The separator space may optionally immediately follow any separator except the opening quota- 
tion mark. In this case, a following space is considered as part of the nonnumeric literal and 
not as a separator. 


Any punctuation character which appears as part of the specification of a PICTURE character- 
string or numeric literal is not considered as a punctuation character, but rather as a symbol 
used in the specification of that PICTURE character-string or numeric literal. PICTURE char- 
acter-strings are delimited only by the separators space, comma, semicolon, or period. 


The rules established for the formation of separators do not apply to the characters which com- 
prise the contents of nonnumeric literals, comment-entries, or comment lines. 


Character-Strings 


A character-string is a character or sequence of contiguous characters which forms a COBOL74 word, 
literal, PICTURE character-string, or comment-entry. A character-string is delimited by separators. 


DEFINITION OF WORDS 


A COBOL74 word is created from a combination of not more than 30 characters, selected from the 
following: 


A through Z 

0 through 9 

— hyphen 
A word is ended by a space, period, comma, or semicolon. A word may not begin or end with a hy- 
phen. (A literal constitutes an exception to these rules, as explained in a paragraph entitled Literals 


in this section.) 


A user-defined word is a COBOL74 word that must be supplied by the user to satisfy the format of 
a clause or statement. 


Types of Words 


COBOL74 contains the following word types: nouns (user-defined words),- verbs, and reserved words. 


Nouns 


Nouns are divided into special categories: 


File-name Family-name 
Record-name Cd-name 
Data-name Text-name 
Condition-name Library-name 
Mnemonic-name Program-name 
Index-name Alphabet-name 
Paragraph-name Section-name 
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The length of a noun must not exceed 30 characters. For purposes of readability, a noun may contain 
one or more hyphens. However, the hyphen must neither begin nor end the noun (this does not apply 
to literals). 


All nouns within a given category must be unique, either because no other noun in the same source 
program has identical spelling or punctuation, or because uniqueness can be insured by qualification. 
With the exception of paragraph-name, section-name, text-name, library-name, and family-name, all 
user-defined words must contain at least one alphabetic character. 


File-Name 


A file-name is a noun containing at least one alphabetic character assigned to designate a set of data 
items. The contents of a file are divided into logical records made up of any consecutive set of data 
items. 


Record-Name 


A record-name is a noun containing at least one alphabetic character assigned to identify a logical rec- 
ord. A record can be subdivided into several data items, each distinguishable by a data-name. 


Data-Name 


A data-name is a noun assigned to identify elements within a record or work area and is used in 
COBOL74 to refer to an element of data, or to a defined data area containing data elements. Each 
data-name must contain at least one alphabetical character. 


Condition-Name 


A condition-name is the name assigned to a specific value, set of values, or range of values within 
the complete set of values.that a data item may assume. The data item is a conditional variable. The 
condition-name must contain at least one alphabetic character and must be unique, or be able to be 
referenced uniquely through qualification. A conditional variable may be used as a qualifier for any 
of its condition-names. If references to a conditional variable require indexing, subscripting, or qualifi- 
cation, then references to any of its condition-names also require the same combination of indexing, 
subscripting, or qualification. A condition-name is used in conditions as an abbreviation for the rela- 
tion condition; its value is TRUE if the associated conditional variable is equal to one of the set values 
to which that condition-name is assigned. 


Condition-names may be defined in the DATA DIVISION, or in a SPECIAL-NAMES paragraph 
within the ENVIRONMENT DIVISION where a condition-name must be assigned to the ON STATUS 
or OFF STATUS, or both, of defined switches. 


Mnemonic-Name 

The use of mnemonic-names provides a means of relating certain hardware equipment names to prob- 
lem-oriented names the programmer may wish to use. These associations are established in the SPE- 
CIAL-NAMES paragraph of the ENVIRONMENT DIVISION. 

Index-Name 

An index-name is a word with at least one alphabetic character that names an index associated with 


a specific table (refer to Indexing in this section). An index is a register, the contents of which represent 
the rh nan of the first character of an element of a table with respect to the beginning of 
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Paragraph-Name 


A paragraph-name is a word which names a paragraph in the PROCEDURE DIVISION. Paragraph- 
names are equivalent only if composed of the same sequence of the same number of digits and/or char- 
acters. 


Section-Name 


A section-name is a word which names a section in the PROCEDURE DIVISION. Section-names are 
equivalent only if composed of the same sequence of the same number of digits and/or characters. 


Other Categories 
See the glossary in appendix D for definitions of all other types of user-defined words. 
Verbs 


A verb in COBOL74 is a single word that denotes action, such as ADD, WRITE, or MOVE. All allow- 
able verbs in COBOL74, with the exception of the word IF, are English verbs. The usage of the 
COBOL74 verbs takes place primarily within the PROCEDURE DIVISION. | 


Reserved Words 


A reserved word is a COBOL74 word that is one of a specified list of words which may be used in 
COBOL74 source programs, but must not appear in the programs as user-defined words. Refer to ap- 
pendix A, Reserved Words. 


These rules apply to the entire COBOL74 source program; no exceptions exist for specific divisions, 
sections, or statements. 


There are six types of reserved words: 


Key words 
Connectives 
Optional words 


Figurative constants 
Special registers 
Special-character words 


Key Words 


A key word is a word whose presence is required in a source program. Within each format, such words 
are upper-case and underlined. 


Key words are of three types: 
1. Verbs such as ADD and READ. 
2. Required words which appear in statement and entry formats. 


3. Words which have a specific functional meaning such as NEGATIVE and SECTION. 
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Connectives 


Connectives are used to indicate the presence of a qualifier or to form compound conditional state- 
ments. The connectives OF and IN are used for qualification. The connectives AND, AND NOT, OR, 
or NOT are used as logical connectives. in conditional statements. The comma is used as a series con- 
nective to separate two or more operands. 


Optional Words 


Optional words are included in the COBOL74 language to improve the readability of the statement 
formats. These optional words may be included or omitted. For example, IF A IS GREATER THAN 
B... is equivalent to IF A GREATER B... ; the inclusion or omission of the words IS and THEN: 
does not influence the logic of the statement. 


Figurative Constant 


A figurative constant is a reserved word used to reference specific constant values and must never be 
enclosed in quotation marks except when the word, rather than the value, is desired. The figurative 
constant names and meanings are: 


ZERO Represents the value 0, or one or more of the 

ZEROS character ‘0’, depending on the context. 

ZEROES 

SPACE Represents one or more spaces (blanks). 

SPACES 

HIGH-VALUE Represents one or more occurrences of the character that 


HIGH-VALUES has the highest ordinal position in the program collating 
sequence, except in the alphabet-name clause of the 
SPECIAL-NAMES paragraph, where it represents the highest 
ordinal position in the native collating sequence. 


LOW-VALUE Represents one or more occurrences of the character that 

LOW-VALUES has the lowest ordinal position in the program collating 
sequence, except in the alphabet-name clause of the 
SPECIAL-NAMES paragraph, where it represents the lowest 
ordinal position in the native collating sequence. 


rae 
. 


QUOTE Represents one or more occurrences of the character 

QUOTES The word QUOTE or QUOTES cannot be used in place of a 
quotation mark in a source program to bound a nonnumeric 
literal. Thus, QUOTE ABD QUOTE is incorrect as a way of 
stating the nonnumeric literal “ABD”. If, however, the full 
"ABD” is desired in a DISPLAY statement, it can be 
achieved by writing QUOTE "ABD” QUOTE, in which case 

. the object program will display “ABD”. . 

ALL < literal > When followed by a hexadecimal literal, a nonnumeric literal, 
or a figurative constant, the word ALL represents a series of © 
that literal. For example, if the COBOL74 statement is MOVE 
ALL literal TO ERROR-CODE, then the resultant ERROR- 
CODE would take on the following values: 
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ALL literal Size of ERROR-CODE ERROR-CODE 
ALL “ABC” 7 characters ABCABCA 
ALL "2” or ALL 2 5 characters 22222 
ALL QUOTE 3 characters mee. 

ALL SPACES 8 characters (eight spaces) 
NOTE 


The use of ALL with figurative constants, as illustrated in the last two in- 
stances, is redundant. MOVE ALL SPACES and MOVE SPACES yields the 
same result. 


When a figurative constant represents a string of one or more characters, the length of the string is 
determined by the compiler from context, according to the following rules: 


1. When a figurative constant is associated with another data item, the string of characters 
specified’ by the figurative constant is repeated character by character on the right until the sizc 
of the resultant string is equal to the size in characters of the associated data item. This is donc - 
prior to and independent of the application of any JUSTIFIED clause that may be associated 
with the data item. 


2. When a figurative constant is not associated with another data item, as when the figurative con- 
stant appears in a DISPLAY, STRING, STOP, or UNSTRING statement, the length of the 
string is one character. 


A figurative constant may be used wherever a literal appears in a format, except that whenever the 
literal is restricted to numeric characters only, the only figurative constant permitted is ZERO (ZEROS, 
ZEROES). 


When the figurative constants HIGH-VALUE(S) or LOW-VALUE(S) are used in the source program, 
the actual character associated with each figurative constant depends upon the program collating se- 
quence specified. Refer to OBJECT-COMPUTER and SPECIAL-NAMES in Section 5 for additional 
information. 


Special Registers 


Certain reserved words are used to name and reference special registers. Special registers are certain 
compiler generated storage areas whose primary use is to store information produced in conjunction 
with the use of specific COBOL74 features. These special registers include the following: LINAGE- 
COUNTER, LINE-COUNTER, PAGE-COUNTER, and DEBUG-ITEM. 


Special-Character Words 


The arithmetic operators and relation characters are reserved words. Refer to the glossary in appendix 
D for additional information. 


Literals 


A literal is an item of data whose value is implied by an ordered set of characters of which the literal 
is composed, or by specification of a reserved word which references a figurative constant. There are 
three classes of a literal: numeric, nonnumeric, and hexadecimal. 
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Numeric Literal 


A numeric literal is a character-string whose characters are selected from the digits 0 through 9, the 
plus sign (+), the minus sign (-), and/or the decimal point. Numeric literals may be from Igto 18 
digits in length. The rules for the formation of numeric literals are as follows: 


. A numeric literal must contain at least one digit. 


. A numeric literal must not contain more than one sign character. If a sign is used, it must 


appear as the leftmost character of the literal. If the literal is unsigned, the literal is positive. 


. A numeric literal must not contain more than one decimal point. The decimal point is treated 


as an assumed decimal point, and may appear anywhere within the literal except as the right- 
most character. If the literal contains no decimal point, the literal is an integer. An integer is 
a numeric literal which contains no decimal point. 


If a literal conforms to the rules of the formation of numeric literals, but is enclosed in quota- 
tion marks, it is a nonnumeric literal and is treated as such by the compiler. 


. The value of a numeric literal is the algebraic quantity represented by the characters in the nu- 


meric literal. Every numeric literal belongs to category numeric. Refer to the PICTURE clause 
in section 6 for additional information. The size of a numeric literal in standard data format 
characters is equal to the number of digits specified by the user. The following are examples 
of numeric literals: 


51679 
005 
+ 2.629 
-.8479 
6287.92 


Nonnumeric. Literal 


A nonnumeric literal may be composed of any allowable character. The beginning and ending of a 
nonnumeric literal are both denoted by a quotation mark. Any character enclosed within quotation 
marks is part of the nonnumeric literal. Subsequently, all spaces enclosed within the quotation marks 
are considered part of the literal. Two consecutive quotation marks within a nonnumeric literal cause 
a single quotation mark to be inserted into the literal string. Four consecutive quotation marks result 
in a single ” literal. 


All other punctuation characters are part of the value of the nonnumeric literal rather than separators; 
all nonnumeric literals belong to category alphanumeric. Refer to the PICTURE clause in section 6. 


A nonnumeric literal cannot exceed 160 characters. Examples of nonnumeric literals are: 
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"THE TOTAL PRICE” THE TOTAL PRICE 

” .2080.479" -2080.479 

“""T IMITATIONS’ ”” “LIMITATIONS” 

"A" "BR" A”B 
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NOTE 
Literals that are used for arithmetic computation must be expressed as nu- 
meric literals and must not be enclosed in quotation marks as nonnumeric 
literals. For example, "4.4” and 4.4 are not equivalent. The compiler stores 
the nonnumeric literal as 4.4, whereas the numeric literal would be stored as 
0044 if the PICTURE were 999V9 DISPLAY, with the assumed decimal 
point located between the two fours. 


Hexadecimal Literals 


A hexadecimal literal is a character-string consisting of characters selected from the hexadecimal digits 
‘0’ through ‘9’ and ‘A’ through 'F’. The beginning and ending of a hexadecimal literal are each 
denoted by an @ sign. For example, a binary 12 would be expressed @C@. 


The category of a hexadecimal literal (4-bit numeric or 8-bit alphanumeric) is determined by the catego- 
ry of the data item with which it is associated in a COBOL74 statement. A hexadecimal literal is han- 


dled as a 4-bit numeric when the category of the associated data item is numeric whether USAGE is 
COMPUTATIONAL or DISPLAY. 


A hexadecimal literal is handled as if it were numeric if: 
1. In the VALUE clause, the category of the associated data item is numeric. 
2. In the MOVE statement, the category of the receiving data item is numeric or numeric edited. 


3. In the conditional expression of an IF, PERFORM, or SEARCH statement, the category of 
the other relational operand is numeric. 


A hexadecimal literal is handled as 8-bit alphanumeric when the category of the associated data item 
is nonnumeric. Each character is represented by two hexadecimal digits. This requires an even number 
of digits in the hexadecimal literal. A hexadecimal literal is handled as if it were alphanumeric if: 


1. In the VALUE clause, the category of the associated data item is not numeric. 


2. In the MOVE statement, the category of the receiving data item is alphanumeric, alphabetic, 
or alphanumeric edited. 


3. In the conditional expression of an IF, PERFORM, or SEARCH statement, the category of 
the other relational operand is not numeric. 


4. It appears in an INSPECT, STRING, UNSTRING, DISPLAY, STOP, DISABLE, or ENABLE 
statement. 


5. It appears in the ALL figurative constant. 


A hexadecimal literal may also appear in a COPY statement, in which case the hexadecimal literal does 
not have a type associated with it. 


The following restrictions apply to hexadecimal literals: 


1. A hexadecimal literal is not allowed as an arithmetic operand in an ADD, SUBTRACT, MUL- 
TIPLY, or DIVIDE statement, nor in an arithmetic expression in a COMPUTE statement or 
conditional expression. 
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A hexadecimal literal is not allowed as a subscript or index. 
A hexadecimal literal is not allowed as a program name in a CALL or CANCEL statement. 


An identifier assigned a hexadecimal literal will not, in most cases, compare as either numeric 
or alphabetic in a class condition test. 


. When a hexadecimal literal is handled as if its category were computational, then the length 


of the literal must be from 1 to 18 digits. When a hexadecimal literal is handled as if it were 
nonnumeric, the length of the literal must be from 2 to 320 digits. 
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DATA DESCRIPTION CONCEPTS 


LOGICAL RECORD AND FILE CONCEPTS 


The purpose of defining file information is to distinguish between the physical aspects of the file and 
the conceptual characteristics of the data contained within the file. 


Physical Aspects of a File 


The physical aspects of a file describe the data as it appears on the input or output media and include 
such features as: 


1. The grouping of logical records within the physical limitations of the file medium. 


2. The means by which the file can be identified. 
Conceptual Characteristics of a File 


The conceptual characteristics of a file are the explicit definition of each logical entity within the file 
itself. In a COBOL74 program, the input or output statements refer to one logical record. 


It is important to distinguish between a physical record and a logical record. A COBOL74 logical rec- 
ord is a group of related information, uniquely identifiable, and treated as a unit. 


A physical record is a physical unit of information whose size and recording mode are adapted to a 
particular computer for the storage of data on an input or output device. The size of a physical record 
is hardware dependent and has no direct relationship to the size of the file of information contained 
on a device. 


A logical record may be contained within a single physical unit; several logical records may be con- 
tained within a single physical unit; or, in the case of mass storage files, a logical record may require 
more than one physical unit. There are several source language methods available for describing the 
relationship of logical records and physical units. When a permissible relationship has been established, 
control of the accessibility of logical records as rélated to the physical unit must be provided by the 
interaction of the object program on the hardware and/or software system. In this manual, references 
to records indicate records, unless the phrase ‘physical record’ is specifically used. 


The concept of a logical record is not restricted to file data but is carried over into the definition of 
working storage. Working storage may be grouped into logical records and defined by a series of rec- 
ord description entries. 


Record Concepts 
The record description consists of a set of data description entries which describe the characteristics 


of a particular record. Each data description entry consists of a level-number followed by a data-name, 
if required, followed by a series of independent clauses, as required. 


1168622 | 2-13 


B 1000 Systems COBOL74 Language Manual 
Language Concepts 


DATA DESCRIPTION CONCEPTS 


CONCEPT OF LEVELS 


A level concept is inherent in the structure of a logical record. This concept arises from the need to 
specify subdivisions of a record for the purpose of data reference. Once a subdivision has been 
specified, it may be further subdivided to permit more detailed data referral. 


The most basic subdivisions of a record, those not further subdivided, are called elementary items; con- 
sequently, a record is said to consist of a sequence of elementary items, or the record itself may be 
an elementary item. 


In order to refer to a set of elementary items, the elementary items are combined into groups. Each 
group consists of a named sequence of one or more elementary items. Groups, in turn, may be com- 
bined into groups of two or more groups. An elementary item may belong to more than one group. 


LEVEL-NUMBERS 


A system of level-numbers shows the organization of elementary items and group items. Since records 
are the most inclusive data items, level-numbers for records start at 01. Less inclusive data items are 
assigned higher (not necessarily successive) level-numbers not greater in value than 49. There are special 
level-numbers 66, 77, and 88, which are exceptions to this rule. Separate entries are written in the 
source program for each level-number used. 


A group includes all group and elementary items following it until a level-number less than or equal 
to the level-number of that group is encountered. All items which are immediately subordinate to a 
given group item must be described using identical level-numbers greater than the level-number used 
to describe that group item. 
Three types of entries exist for which there is no true concept of level. These are: 

1. Entries that specify elementary items or groups introduced by a RENAMES clause. 

2. Entries that specify noncontiguous working storage and linkage data items. 


3. Entries that specify condition-names. 


Entries describing items by means of RENAMES clauses for the purpose of regrouping data items have 
been assigned the special level-number 66. 


Entries that specify noncontiguous data items, which are not subdivisions of other items, and are not 
subdivided, have been assigned the special level-number 77. 


Entries that specify condition-names, to be associated with particular values of a conditional variable, 
have been assigned the special level-number 88. 
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CONCEPT OF -CLASSES OF DATA 


The five categories of data items (refer to the PICTURE clause in section 6) are grouped into three 
classes: alphabetic, numeric, and alphanumeric. For alphabetic and numeric, the classes and categories 
are synonymous. The alphanumeric class includes the categories of alphanumeric edited, numeric ed- 
ited, and alphanumeric (without editing). Every elementary item, except for an index data item, belongs 
to one of the classes and also to one of the categories. The class of a group item is treated at object 
time as alphanumeric regardless of the class of elementary items subordinate to that group item. Table 
2-1 shows the relationship of the class and categories of data items. 


Table 2-1. Classes of Data 


Level of Item Category 
Alphabetic Alphabetic 
Numeric 


Elementary Numeric Edited 
Alphanumeric Alphanumeric Edited 
Alphanumeric 
Alphabetic 
Numeric. 


Nonelementary Alphanumeric Numeric Edited 
(Group) Alphanumeric Edited 
Alphanumeric 


ALGEBRAIC SIGNS 


Algebraic signs fall into two categories: operational signs, which are associated with signed numeric 
data items and signed numeric literals to indicate algebraic properties; and editing signs, which appear 
on edited reports to identify the sign of the item. 


The SIGN clause permits the programmer to state explicitly the location of the operational sign. The 
clause is optional; if it is not used, operational signs are represented as defined under symbol ‘S’ of 
the PICTURE clause. Refer to the PICTURE clause, General Rule 8, the ’S’ symbol in section 6. 


Editing signs are inserted into a data item through the use of the sign control symbols of the PICTURE 
clause. 
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STANDARD ALIGNMENT RULES 


The standard rules for positioning data within an elementary item depend on the category of the receiv- 
ing item. These rules are: 


1. If the receiving data item is described as numeric: 


a. The data is aligned by decimal point and is moved to the receiving character positions with 
zero fill or truncation on either end as required. 


b. When an assumed decimal point is not explicitly specified, the data item is treated as if 
it had an assumed decimal point immediately following the rightmost character and is 
aligned as in step la above. 


2. If the receiving data item is a numeric edited data item, the data moved to the edited data item 
is aligned by decimal point with zero fill or truncation at either end as required within the re- 
ceiving character positions of the data item, except where editing requirements cause replace- 
ment of the leading zeros. 


3. If the receiving data item is alphanumeric (other than a numeric edited data item), alphanumeric 
edited or alphabetic, the sending data is moved to the receiving character positions and aligned 
at the leftmost character position in the data item with space fill or truncation to the right, 
as required. 


If the JUSTIFIED clause is specified for the receiving item, these standard rules are modified as de- 
scribed in the JUSTIFIED clause description in section 6. 


UNIQUENESS OF REFERENCE 


Uniqueness of reference for identifiers and condition-names, if not unique in the program, can be ac- 
complished through the use of qualification, subscripting, or indexing. 


Identifier 

An identifier is a term used to reflect that ‘a data-name, if not unique in a program, must be followed 
by a syntactically correct combination of qualifiers, subscripts, or indices necessary to ensure unique- 
ness. 


General Formats: 


Format 1: 


esi \ [ | QE} | data-name-2 | 
condition-name IN). . 
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Format 2: 


BF) snaes 
IN § | data-name-2 


(| index-name-] + literal-2 
literal-1 - 


data-name-! [ 


ge a | i" _ | 
tae PH) 


Restrictions on qualification, subscripting, and indexing are: 


literal-3 


1. A data-name must not be subscripted or indexed when that data-name is being used as an in- 
dex, subscript, or qualifier. - 


2. Indexing is not permitted where subscripting is not permitted. 


3. An index may be modified only by the SET, SEARCH, and PERFORM statements. Data items 
described by the USAGE IS INDEX clause permit storage of the values associated with index- 
names as data. Refer to the USAGE clause in section 6. Such data items are called index data 
items. 


4. Literal-1, literal-3, literal-5, ... in the previous format example, must be positive numeric inte- 
gers. Literal-2, literal-4, literal-6, ... must be unsigned numeric integers. 


Condition-Name 


Each condition-name must be unique, or made unique through qualification and/or indexing, or subs- 
cripting. 


If qualification is used to make a condition-name unique, the associated conditional variable may be 
used as the first qualifier. If qualification is used, the hierarchy of names associated with the condition- 
al variable, or the conditional variable itself, must be used to make the condition-name unique. 


If references to a conditional variable require indexing or subscripting, then references to any of its 
condition-names also require the same combination of indexing or subscripting. 


The format and restrictions on the combined use of qualification, subscripting, and indexing of condi- 
tion-names is exactly that of ‘identifier’ except that data-name-1 is replaced by ‘condition-name-1’. 


In the general formats, ‘condition-name’ refers to a condition-name qualified, indexed or subscripted, 
as necessary. 
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Qualification 


Every user-specified name that defines an element in a COBOL74 source program must be unique, ei- 
ther because no other name has the identical spelling and hyphenation, or because the name exists 
within a hierarchy of names such that references to the name can be made unique by mentioning one 
or more of the higher levels of the hierarchy. The higher levels are called qualifiers and the process 
that specifies uniqueness is called qualification. Enough qualification must be mentioned to make the 
name unique; however, it may not be necessary to mention all levels of the hierarchy. Within the 
DATA DIVISION, all data-names used for qualification must be associated with a level indicator or 
a level-number. Therefore, two identical data-names must not appear as entries subordinate to a group 
item unless they are capable of being made unique through qualification. In the PROCEDURE DIVI- 
SION, two identical paragraph-names must not appear in the same section. 


In the hierarchy of qualification, names associated with a level indicator are the most significant, fol- 
lowed by those names associated with level-number 01, and finally the names associated with level- 
number 02, ... , 49. A section-name is the highest and only qualifier available for a paragraph-name. 
The most significant name in the hierarchy must be unique and cannot be qualified. Subscripted or 
indexed data-names and conditional variables, as well as procedure-names and data-names, may be 
made unique by qualification. The name of a conditional variable can be used as a qualifier for any 
of its cOndition-names. Regardless of the available qualification, no name can be both a data-name 
and procedure-name. 


Qualification is performed by following a data-name, a condition-name, a paragraph-name, or a text- 
name by one or more phrases composed of a qualifier preceded by IN or OF. IN and OF are logically 
equivalent. 


General Format: 


Format 1: 


condition-name 


data-name-1 \ data-name-2 | 


Format 2: 


section-name 
paragraph-name 


Format 3: 


library-name | 


text-name 
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General Rules: 


l. 


Each qualifier must be of a successively higher level and within the same hierarchy as the name 
it qualifies. 


. The same name must not appear at two levels in a hierarchy. 


. If a data-name or a condition-name is assigned to more than one data item in a source pro- 


gram, the data-name or condition-name must be qualified each time it is referenced in the PRO- 
CEDURE, ENVIRONMENT, and DATA DIVISIONS (except in the REDEFINES clause where 
qualification is unnecessary and must not be used.) 


. A paragraph-name must not be duplicated within a section. When a paragraph-name is quali- 


fied by a section-name, the word SECTION must not appear. A palaprapns name need not be 
qualified when referred to from within the same section. 


. A data-name cannot be subscripted when used as a qualifier. 


. A name can be qualified even though it does not need qualification; if there is more than one 


combination of qualifiers that ensures uniqueness, then any such set can be used. The complete 
set of qualifiers for a data-name must not be the same as any partial set of qualifiers for an- 
other data-name. Qualified data-names may have any number of qualifiers up to and including 
49. 


. If more than one COBOL74 library is available to the compiler during compilation, text-name 


must be qualified each time it is referenced. 


Examples: 


In the following file descriptions all items are unique except the data-name TECH. In order to refer 
to either TECH item, qualification must be used. Otherwise, if reference is made to TECH only, the 
compiler would not know which of the two is desired. Therefore, in order to move the contents of ' 
one TECH into the other TECH, the PROCEDURE DIVISION must be coded with one of the fol- 
lowing sentences: 


MOVE TECH IN CITY-NO TO TECH OF STATE~NO. 
MOVE TECH OF CITY-NO TO TECH IN STATE-NO. 
MOVE TECH IN AREA-NO TO TECH OF RADIUS-NO. 
MOVE TECH OF AREA-NO TO TECH IN RADIUS-NO. 


0} 


AREA-NO.. . O1 RADIUS-NO... 
03 CITY-NO.. . 03 STATE-NO . 
O5 TECH « « 3 O05. TECH «<5. -« 
O5 BRANCH... O5 ODIST-BR . 
O53. “DISTRICT <. a. 03 REGION . ‘ 
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Subscripts can be used only when reference is made to an individual element within a list or table of 
like elements that have not been assigned individual data-names (refer to the OCCURS clause in section 
6). 


The subscript can be represented either by a numeric literal that is an integer or by a data-name. The 
data-name must be a numeric elementary item that represents an integer. When the subscript is repre- 
sented by a data-name, the data-name may be qualified but not subscripted. 


The ‘subscript may be signed and, if signed, must be positive. The lowest possible subscript value is 
1. This value points to the first element of the table. The next sequential elements of the table are 
pointed to by subscripts whose values are 2, 3, and so forth. The highest permissible subscript value, 
in any particular case, is the maximum number of occurrences of the item as specified in the OCCURS 
clause. 


At the time of execution of a statement which refers to a subscripted table element, each subscript 
specified is validated. That is, its value must not be less than one or more than the maximum number 
of occurrences as specified by the corresponding OCCURS clause (as modified by the DEPENDING 
ON clause, if any). If the subscript value is not within this range, an abnormal termination of the 
program occurs. 


The subscript or set of subscripts that identifies the table element is delimited by the balanced pair 
of separators, left parenthesis and right parenthesis, following the table element data-name. The table 
element data-name appended with a subscript is called a subscripted data-name or an identifier. 


When more than one subscript is required, they are written in the order of successively less inclusive 
dimensions of the data organization. ; 


General Format: 


data-name 
( subscript-1 [< subscript-2 [ , subscript-3] ... ] ) 


condition-name 


Example: 


In the following file description, to reference the first department, DEPT (1) is written. If data-name 
X contains the number of the department desired, DEPT (X) is written. If the data item GROUP con- 
tains the specific group desired, then POSITION (X, GROUP) would reference the exact employee. 


QO} EMPLOYEE-JOBS. 


O05 DEPT OCCURS 50 TIMES. 
10 DEPT-NAME PiC X(10). 

10 ALL-JOBS OCCURS 20 TIMES. 
15 POSITION Pic X(15). 
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indexing 


References can be made to individual elements within a table of like elements by specifying indexing 
for that reference. An index is assigned to that level of the table by using the INDEXED BY phrase . 
in the definition of a table. A name given in the INDEXED BY phrase is known as an index-name 
and is used to refer to the assigned index. The value of an index corresponds to the occurrence number 
of an element in the associated table. An index-name can be given a value by the execution of a SET 
statement, a SEARCH ALL statement, or a Format 4 PERFORM statement. 


An index-name has the same internal representation as an index data item. Refer to General Rule 9, 
the USAGE clause, in section 6. If a value to be stored in an index-name or in an index data name 
exceeds the largest value that can be held in that index-name or index data name, the value is truncated 
according to the rules for the occurrence of a size error condition in an arithmetic statement without 
a SIZE ERROR phrase. 


An index-name assigned to one table may not be used to index another table. 


Direct indexing is specified by using an index-name in the form of a subscript. Relative indexing is 
specified when the index-name is followed by the operator + or -, followed by an unsigned integer 
numeric literal, all of which is delimited by the matching pair of separators, left parenthesis and right 
parenthesis, following the table element data-name. The occurrence number resulting from relative in- 
dexing is determined by incrementing (where the operator + is used) or decrementing (when the 
operator — is used), by the value of the literal, the occurrence number represented by the value of 
the index. When more than one index-name is required, they are written in the order of successively 
less inclusive dimensions of the data organization. 


At the time of execution of a statement which refers to an indexed table element, the value of each 
direct or relative index must not be less than a value which corresponds to the beginning of the first 
occurrence of the table element. Also, the index must not be greater than a value which corresponds 
to the beginning of the last occurrence of the table element as specified by the corresponding OCCURS 
clause. If the index value is not within this range, the execution of the program is terminated. The 
index-value need not precisely address the beginning of a table element in order to pass the range 
check. This may occur when an index-name is set to the value of an index data item which has been 
set to the value of another index-name, as such assignments are made without conversion. 


Subscripting is permitted where indexing is permitted. 


General Format: 


j data-name 


index-name-1 i (+) aaa | 
] condition-name j 


= 


( } titeral-1 
eis | aad 
ee i | 
| saad }\| ) 
| ee ee 
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There are three types of explicit and implicit specifications that occur in COBOL74 source programs: 
1. Explicit and implicit PROCEDURE DIVISION references. 
2. Explicit and implicit transfers of control. 


3. Explicit and implicit attributes. 
Explicit and Implicit PROCEDURE DIVISION References 


A COBOL74 source program can reference data items either explicitly or implicitly in PROCEDURE 
DIVISION statements. An explicit reference occurs when the name of the referenced item is written 
in a PROCEDURE DIVISION statement or when the name of the referenced item is copied into the 
PROCEDURE DIVISION by the processing of a COPY statement. An implicit reference occurs when 
the item is referenced by a PROCEDURE DIVISION statement without the name of the referenced 
item being written in the source statement. An implicit reference also occurs, during the execution of 
a PERFORM statement, when the index or data item referenced by the index-name or identifier 
specified in the VARYING, AFTER, or UNTIL phrase is initialized, modified, or evaluated by the 
control mechanism associated with that PERFORM statement. Such an implicit reference occurs if the 
data item contributes to the execution of the statement. 


Explicit and Implicit Transfers of Control 


The mechanism that controls program flow transfers control from statement to statement in the se- 
quence in which the statements were written in the source program, unless an explicit transfer of con- 
trol overrides this sequence or there is no next executable statement to which control can be passed. 
The transfer of control from statement to statement occurs without the writing of an explicit PROCE- 
DURE DIVISION statement, and therefore, is an implicit transfer of control. 


COBOL74 provides both explicit and implicit means of altering the implicit control transfer 
mechanism. 


In addition to the implicit transfer of control between consecutive statements, implicit transfer of con- 
trol also occurs when the normal flow is altered without the execution of a procedure branching state- 
ment. COBOL74 provides the following types of implicit control flow alterations which override the 
statement-to-statement transfers of control: 


1. If a paragraph is being executed under control of another COBOL74 statement (for example, 
PERFORM, USE, SORT, and MERGE) and the paragraph is the last paragraph in the range 
of the controlling statement, then an implied transfer of control occurs from the last statement 
in the paragraph to the control mechanism of the last executed controlling statement. Further, 
if a paragraph is being executed under the control of a PERFORM statement which causes iter- 
ative execution and that paragraph is the first paragraph in the range of that PERFORM state- 

' ment, an implicit transfer of control occurs between the control mechanism associated with that 
PERFORM statement and the first statement in that paragraph for each iterative execution of 
the paragraph. 


2. When a SORT or MERGE statement is executed, an implicit transfer of control occurs to any 
associated input or output procedures. 
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3. When any COBOL74 statement is executed which results in the execution of a declarative sec- 
tion, an implicit transfer of control to the declarative section occurs. Another implicit transfer 
of control occurs after execution of the declarative section, as described in step 1 above. 


An explicit transfer of control consists of an alteration of the implicit control transfer mechanism by 
the execution of a procedure branching or conditional statement. An explicit transfer of control can 
be caused only by the execution of a procedure branching or conditional statement. The execution of 
the procedure branching statement ALTER does not constitute an explicit transfer of control, but af- 
fects the explicit transfer of control that occurs when the associated GO TO statement is executed. The 
procedure branching statement EXIT PROGRAM causes an explicit transfer of control when the state- 
ment is executed in a called program. 


In this manual, the term ’next executable statement’ is used to refer to the next COBOL74 statement 
to which control is transferred according to the rules above and the rules associated with each language 
element in the PROCEDURE DIVISION. 


There is no next executable statement following: 


1. The last statement in a declarative section when the paragraph in which it appears is not being 
executed under the control of some other COBOL74 statement. 


2. The last statement in a program when the paragraph in which it appears is not being executed 
under the control of some other COBOL74 statement. 


Explicit and Implicit Attributes 

Attributes may be implicitly or explicitly specified. Any attribute which has been explicitly specified 
is called an explicit attribute. If an attribute has not been specified explicitly, then the attribute assumes 
the default specification. Such an attribute is known as an implicit attribute. 


For example, the usage of a data item need not be specified, in which case, a data item’s usage is 
DISPLAY. 
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GENERAL 


The format of the COBOL74 coding form (figure 3-1) has been defined by CODASYL and ANSI, 
and by common usage. The B 1000 COBOL74 Compiler accepts this standard format. Should program 
interchange be a major consideration, the user is directed to the ANSI standard. 


The rules for spacing given in the following description of the reference format take precedence over 
all other rules for spacing. 


‘FIELD DEFINITIONS 


The same coding form is used for all four divisions of a COBOL74 program. These divisions must 
appear in proper order: IDENTIFICATION, ENVIRONMENT, DATA, and PROCEDURE. The fol- 
lowing paragraphs describe the various fields of this coding form. 


Sequence Area (Record Positions 1-6) 


A sequence number, consisting of six digits in the sequence area, may be used to label a source pro- 
gram line. 


Indicator Area (Record Position 7) 
Column 7 has the following functions: 


1. A $ symbol in column 7 indicates that the record is used to specify options for compiler 
operation. Refer to Section 11 for additional information. 


2. If column 7 contains an asterisk (*), the remainder of the record is considered to be a comment 
and, is not “compiled” to produce object code. 


3. If column 7 contains a slash (/), the listing is advanced to channel 1 before printing, and the 
record is considered to be a comment record. 


4. The presence -of a hyphen (-) indicates that the last word or literal on the previous record is 
not complete and is continued on this record beginning in Area B (positions 12 through 72). 


Words and numeric literals may be split at any point by placing a hyphen in column 7 of the 
following record. Any rightmost blank spaces on a record are ignored as are the leftmost blank 
spaces on the continuation record. 


Nonnumeric literals are split in a slightly different fashion than words and numeric literals. On 
the initial record starting from the quotation mark, all information through position 72 is taken 
as part of the literal, and on the next record a quotation mark must be used to indicate the 
start of the second part of the literal. 


If there is no hyphen in column 7 of a coding line, it is assumed that the last character in 
the preceding line is followed by a space. 
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Figure 3-1. COBOL Coding Form 
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5. The letter D in column 7 specifies a debugging line. Any debugging line that consists solely 
of spaces from positions 8 through 72 is considered the same as a blank line. 


A debugging line is considered to have all the characteristics of a comment line, if the WITH 
DEBUGGING MODE clause is not specified in the SOURCE-COMPUTER paragraph. There- 
fore, the contents of a debugging line must be such that a syntactically correct program is 
formed with or without the debugging lines being considered as comment lines. 


A debugging line is only permitted in the program after the OBJECT-COMPUTER paragraph. 


Successive debugging lines are allowed. Continuation of debugging lines is permitted, except 
that each continuation line must contain the letter D in position 7, and character-strings may 
not be broken across two lines. 


Area A (Positions 8 through 11) 


DIVISION, SECTION, and PARAGRAPH headers must begin in Area A. A division header, consists 
of the division name (IDENTIFICATION, ENVIRONMENT, DATA, or PROCEDUREB), followed by 
a space, then the word DIVISION followed by a period. 


In the ENVIRONMENT and DATA DIVISIONS, a section header consists of the section-name, fol- 
lowed by a space, and then the word SECTION followed by a period. 


In the PROCEDURE DIVISION, a section header is composed of a section-name, followed by the 
reserved word SECTION, followed by a segment-number (optional), followed by a period. 


A paragraph header consists of the paragraph-name followed by a period. The first sentence of the 
paragraph may appear on the same line as the paragraph header. 


Within the IDENTIFICATION and ENVIRONMENT divisions, the section and paragraph headers are 
fixed and only the headers shown in this manual are permitted. Within the PROCEDURE DIVISION, 
the section and paragraph headers are defined by the user. 


Within the DATA DIVISION, the level indicators (FD, CD, SD) and the level numbers 01 and 77 must 
each begin in Area A, followed by the associated name and appropriate descriptive information. 


The key words DECLARATIVES and END DECLARATIVES that precede and follow the declaratives 
portion of the PROCEDURE DIVISION, must appear on separate lines. Each must begin in Area A 
and must be followed by a period and a space. 


Area B (Positions 12 through 72) 


All entries which are not DIVISION, SECTION, or PARAGRAPH headers; level numbers 01 and 77, 
or level indicators (FD, SD, CD), must start in Area B. 


When level-numbers are to be indented, each new level-number may begin any number of spaces to 
the right of Area A. The extent of indentation to the right is determined only by the width of the 
physical medium. . 


Right Margin (Position 72) 


The text of the program must appear between positions 8 and 72, inclusive. A word or statement may 
end in position 72. . : 
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Identification (Positions 73 through 80) 


The identification field may contain any information desired by the user. The field is ignored but is 
reproduced on the output listing by the compiler. This field is normally used for the program name. 


BLANK LINES 


A blank line is one that contains no entries in the Indicator Area, Area A, and Area B. A blank line 
may appear anywhere in the source program except immediately preceding a continuation line. 


PUNCTUATION 
The following rules of punctuation apply to COBOL74 source programs for the B 1000 system. 
1. A sentence must be terminated by a period followed by a space. A period must not appear 
within a sentence unless it is within a nonnumeric literal or is a decimal point in a numeric 


literal or PICTURE string. 


2. Two or more names in a series must be separated by a space or by a comma. If used, commas 
must appear only where allowed. 


3. Semicolons (;) are used only for readability and are never required. 


4. A space must never be embedded in a name; hyphens are to be used instead. A hyphen must 
not start or terminate a name. For example: 


PAY-DAY (correct) 
- PAYDAY (wrong) 
SAMPLE CODING 


An extract sample from a source program, showing the continuation of both words and nonnumeric 
literals, is illustrated in figure 3-2. 
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Figure 3-2. Example of Continuation of Words and Literals 
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IDENTIFICATION DIVISION 


GENERAL 


The first division of the COBOL74 source program is the IDENTIFICATION DIVISION whose func- 
tion is to identify the source program and the resultant output of compilation. In addition, the date 
the program was written, the date the source program was compiled, and other pertinent information 
can be included in the IDENTIFICATION DIVISION. 


IDENTIFICATION DIVISION STRUCTURE 


The structure of this division follows: 


IDENTIFICATION DIVISION. 
PROGRAM.-ID. program-name. 
[AUTHOR. [comment-entry ] ...] 
[INSTALLATION. [comment-entry ] ...] 
[DATE-WRITTEN. [comment-entry ] ...] 
[DATE-COMPILED. [comment-entry ] ...] 
[SECURITY. [comment-entry] ...] 


The following rules must be observed in the formation of the IDENTIFICATION DIVISION: 


1. The IDENTIFICATION DIVISION must begin. with the reserved words IDENTIFICATION 
DIVISION followed by a period and a space. 


2. All paragraph-names must begin in positions 8 through 11 (Area A) of the coding form. 
3. The comment-entry can consist of any combination of the characters from the B_ character set. 
The continuation of the comment-entry by the use of the hyphen in the indicator area is not 


permitted; however, the comment-entry may be contained on one or more lines. A period must 
be present to denote the end of the comment entry. 


PROGRAM-ID Paragraph 
The PROGRAM.-ID paragraph gives the name by which a program is identified. 
PROGRAMLID. program-name. 
The following rules must be observed to form PROGRAM-ID paragraphs. 
1. The program-name must conform to the rules for formation of a dascactned: word. 


2. The PROGRAM-ID paragraph contains the name of the program and must be present in every 
program. 


3. The program-name identifies the source program and all listings pertaining to a particular pro- 
gram. 
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DATE-COMPILED Paragraph 


The DATE-COMPILED paragraph provides the compilation date in the IDENTIFICATION DIVI- 
SION source program listing. 


DATE-COMPILED. [comment-entry ] ... 


The paragraph-name DATE-COMPILED causes the current date to be inserted during program compil- 
ation. If a DATE-COMPILED paragraph is present, it is replaced eunne compilation with a one-line 
paragraph of the form: 


DATE-COMPILED. current date. 


Current date is composed of the elements year, month, day of month, hour, and minute and represents 
the date and time at which the compilation of the source program started. 


Year is presented as four digits, starting in the position on the printed line corresponding to column 
25 of a source line. 


Month is presented as the name of the month in English, starting in the position on the printed line 
corresponding to column 30 of a source line. 


Day of month is presented as two digits, starting in the position on the printed line two places to the 
right of the last character of the month entry. 


Time is presented as four digits, with a colon between the second and third digits, and represents the 
time on a 24-hour clock. Time is presented in the position on the printed line five places to the right 
of the second digit of day of month. 

Any leading zeros in the numeric fields are presented as the character ‘0’ (zero). 

If a compilation commences at 11:03 p.m., February 3, 2001, the current date would be presented as: 


2001 FEBRUARY 03 = 23:03 


CODING THE IDENTIFICATION DIVISION 


Figure 4-1 provides an example of how the IDENTIFICATION DIVISION may be coded in the source 
program. Continued lines must begin in Area B and must not include a hyphen in the indicator area. 
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Figure 4-1. Coding the IDENTIFICATION DIVISION 
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SECTION 5 
ENVIRONMENT DIVISION 


GENERAL 


The ENVIRONMENT DIVISION is the second division of a COBOL74 source program. Its function 
is to specify the computer being used for the program compilation, specify the computer to be used 
for object program execution, associate files with the computer hardware devices, and provide the com- 
piler with pertinent information about disk storage files defined within the program. Furthermore, this 
division is also used to specify input-output areas to be utilized for each file declared in a program. 


ENVIRONMENT DIVISION ORGANIZATION 


The ENVIRONMENT DIVISION consists of two sections. The CONFIGURATION SECTION con- 
tains the overall specifications of the computer. The INPUT-OUTPUT SECTION deals with files to 


be used in the object program. . 
ENVIRONMENT DIVISION STRUCTURE 


The structure of this division follows: 


ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. source-computer-entry 
OBJECT-COMPUTER. object-computer-entry 
[SPECIAL-NAMES. special-names-entry] 
[INPUT-OUTPUT SECTION. 
FILE-CONTROL. { file-control-entry} ... 
[I-O-CONTROL. input-output-control-entry] ] 


The following rules must be observed in the formulation of the ENVIRONMENT. DIVISION. 


1. The ENVIRONMENT DIVISION must begin with the reserved words ENVIRONMENT DIVI- 
SION followed by a period and a space. 


2. All entries must begin in Area A (columns 8 through 11) of the coding form. 


CONFIGURATION SECTION 


The CONFIGURATION SECTION contains information concerning the system to be used for pro- 
gram compilation (SOURCE-COMPUTER), the system to be used for program execution (OBJECT- 
COMPUTER), and the SPECIAL-NAMES paragraph. The SPECIAL-NAMES paragraph relates hard- 
ware names used by the B 1000 COBOL74 Compiler to the mnemonic-names in the source program, 
and alphabet-names to character sets and/or collating sequences. 
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SOURCE-COMPUTER Paragraph 


The SOURCE-COMPUTER paragraph identifies the computer upon which the program is to be com- 
piled. It also contains an optional clause for use in debugging COBOL74 programs. Refer to section 
10 in this manual for further information on the compile-time debugging switch. 


General Format: 


SOURCE-COMPUTER. computer-name [ with DEBUGGING MODE ] . 


Syntax Rule: 


1. The computer-name is any COBOL74 word and is handled as a comment entry which describes 
the computer upon which the source program is to be compiled. This computer name is for 
documentation only. 


General Rule: 
1. The computer-name is treated as a comment and ignored. 


2. If the WITH DEBUGGING MODE clause is specified in the SOURCE-COMPUTER paragraph 
of the CONFIGURATION SECTION of a program, all USE FOR DEBUGGING statements 
and all debugging lines are compiled. 


3. If the WITH DEBUGGING MODE clause is not specified in the SOURCE-COMPUTER 
paragraph of the CONFIGURATION SECTION of a program, any USE FOR DEBUGGING 
statements and all associated debugging sections, and any debugging lines are compiled as com- 
ment lines. 
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OBJECT-COMPUTER Paragraph 
The OBJECT-COMPUTER paragraph identifies the computer on which the program is to be executed. 


General Format: 


WORDS 
CHARACTERS 
MODULES 


OBJECT-COMPUTER. computer-name | menony SIZE integer 


[, PROGRAM COLLATING SEQUENCE IS alphabet-name ] 


{ , SEGMENT-LIMIT IS segment-number ] . 


Syntax Rule: 
1. Computer-name is a system name. 


2. Segment-number must be an integer whose value is within the range of 1 through 49. 


General Rules: 


1. The computer-name is any COBOL74 word and is handled as a comment entry which describes 
the computer upon which the object program is to be executed. This computer name is for doc- 
umentation only. 


2. If the PROGRAM COLLATING SEQUENCE clause is specified, the collating sequence associ- 
ated with alphabet-name is used to determine the truth value of any nonnumeric comparisons: 


a. Explicitly specified in relation conditions. Refer to Relation Condition in section 7 for addi- 
tional information. 


b. Explicitly specified in condition-name conditions. Refer to Condition-Name Condition 
(Conditional Variable) in section 7 for additional information. 


3. If the PROGRAM COLLATING SEQUENCE clause is not specified, the EBCDIC collating 
sequence is used. 


4. If the PROGRAM COLLATING SEQUENCE clause is specified, the program collating se- 
quence is the collating sequence associated with the alphabet-name specified in that clause. 


5. The PROGRAM COLLATING SEQUENCE clause is also applied to any nonnumeric merge 
or sort keys unless the COLLATING SEQUENCE phrase of the. respective MERGE or SORT 
statement is specified. Refer to the MERGE and SORT statement in section 7. 


6. The PROGRAM COLLATING SEQUENCE clause applies only to the program in which it is 
specified. 
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8. The SEGMENT-LIMIT clause specifies the limit of the fixed segment for sections numbered 
from 0 to 49. Refer to Segmentation in section 7 for further discussion. 


9. The MEMORY SIZE clause is used to increase the amount of dynamic memory. 


10. WORDS and MODULES are equivalent to CHARACTERS. 
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SPECIAL-NAMES Paragraph 


The SPECIAL-NAMES paragraph provides a means of relating names to user-specified mnemonic- 
names and of relating alphabet-names to character sets and/or collating sequences. 


General Format: 


SPECIAL-NAMES. 


IS mnemonic-name 


[ , ON STATUS IS condition-name-1 
[,OFF STATUS IS condition-name-2 ] ] 


IS mnemonic-name 


[, OFF STATUS IS condition-name-2 
[,ON STATUS IS condition-name-1] ] 


ON STATUS IS condition-name-1 
[, OFF STATUS IS condition-name-2 ] 


OFF STATUS IS condition-name-2 
{, ON STATUS IS condition-name-! |] 


, alphabet-name IS 


STANDARD-1 
NATIVE 
ASCII 
EBCDIC 
THRO literal-2 
literal-1 THRU 
ALSO literal-3 [ , ALSO literal-4 ] | 
{ THROUGH } 
literal-5 THRU. literal-6 
Re literal-7 [, ALSO literal-8 ] . 


[ , CURRENCY SIGN IS literal-9 ] 
{ , DECIMAL-POINT IS COMMA }. 
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Syntax Rules: 
1. The literals specified in the literal phrase of the alphabet-name clause: 


a. If numeric, must be unsigned integers and must have a value within the range of | through 
the maximum number of characters in the EBCDIC character set. 


b. If nonnumeric and associated with a THROUGH or ALSO phrase, must each 'be one char- 
acter in length. 


2. If the literal phrase of the alphabet-name clause is specified, a given character must not be spec- 
ified more than once in an alphabet-name clause. 


3. The words THRU and THROUGH are equivalent. 
General Rules: 


1. If switch-name is not specified, the associated mnemonic-name may be used in the ACCEPT, 
DISPLAY, SEND, and WRITE statements. 


5. The alphabet-name clause provides a means for relating a name:to a specified character code 
set and/or collating sequence. When alphabet-name is referenced in the PROGRAM COLLAT- 
ING SEQUENCE clause (refer to OBJECT-COMPUTER Paragraph in this section) or the 
COLLATING SEQUENCE phrase of a SORT or MERGE statement (refer to MERGE and 
SORT in section 7), the alphabet-name clause specifies a collating sequence. When alphabet- 
name is referenced in a CODE-SET clause in a file description entry (refer to the File Descrip- 
tion Structure in section 6), the alphabet-name clause specifies a character code set. 


a. ASCII is a synonym for STANDARD-1. If the STANDARD-1 or ASCII phrase is 
specified, the character code set and collating sequence identified is that defined in the 
American National Standard Code for Information Interchange, X3.4-1968. 


b. If the NATIVE phrase is specified, the native character code set and native collating se- 
quence will be identified with the alphabet-name. The native character code set is EBCDIC 
and is the character code set associated with DISPLAY usage. 
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c. The correspondence between characters of the ASCII character code set and characters of 


the EBCDIC character code set is determined by standard translation tables for EBCDIC 
to ASCII and ASCII to EBCDIC translation. Refer to appendix C. 


d. If the literal phrase is specified, the alphabet-name may not be referenced in a CODE-SET 


clause. Refer to the CODE-SET clause in section.6. The collating sequence identified is 
that defined according to the following rules: 


Rule 1: The value of each literal specifies: 


1). The ordinal number of a character within the native character set, if the literal is nu- 
meric. This value must not exceed the value which represents the number of characters 
in the native character set. 


2). The actual character within the native character set, if the literal is nonnumeric. If the » 
value of the nonnumeric literal contains multiple characters, each character in the liter- 
al, starting with the leftmost character, is assigned successive ascending positions in the 
collating sequence being specified. . 


Rule 2: The order in which the literals appear in the alphabet-name clause specifies, in 
ascending sequence, the ordinal number of the character within the collating sequence be- 
ing specified. 


Rule 3: Any characters within the native collating sequence, which are not explicitly 
specified in the literal phrase, assume a position, in the collating sequence being specified, 
greater than any of the explicitly specified characters. The relative order within the set of 
these unspecified characters is unchanged from the native collating sequence. 


Rule 4: If the THROUGH phrase is specified, the set of contiguous characters in the native 
character set beginning with the character specified by the value of literal-1, and ending 
with the character specified by the value of literal-2, is assigned a successive ascending po- 
sition in the collating sequence being specified. In addition, the set of contiguous charac- 
ters specified by a given THROUGH phrase may specify characters of the native character 
set in either ascending or descending sequence. 


Rule 5: If the ALSO phrase is specified, the characters of the native character set specified 
by the value of literal-1, literal-3, literal-4, ..., are assigned to the same position in the 
collating sequence being specified. 


6. The character that has the highest ordinal position in the program collating sequence specified 
is associated with the figurative constant HIGH-VALUE. If more than one character has the 
highest position in the program collating sequence, the last character specified is associated with 
the figurative constant HIGH-VALUE. 


7. The character that has the lowest ordinal position in the program collating sequence specified 
is associated with the figurative constant LOW-VALUE. If more than one character has the 
lowest position in the program collating sequence, the first character specified is associated with 
the figurative constant LOW-VALUE. 
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8. The literal which appears in the CURRENCY SIGN IS literal clause is used in the PICTURE 
clause to represent the currency symbol. The literal is limited to a single character and must 
not be one of the following characters: 

a. Digits 0 through 9. 


b. Alphabetic characters: 


OQ w 
> i 
an 
3 on 
@ 


c. Special characters: 


If the CURRENCY SIGN IS clause is not present, the default value dollar sign ($) is used 
in the PICTURE clause. 


9. The clause DECIMAL-POINT IS COMMA means that the functions of the comma and period 
are exchanged in the character-string of the PICTURE clause and in numeric literals. 
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INPUT-OUTPUT SECTION © 


The INPUT-OUTPUT section contains information concerning files-to be used by the object program, 
the manner of recording used or to be used, and the presence of any multiple-file tape or disk. 


FILE CONCEPTS 


In the following paragraphs, concepts of File Types, Organization, Access Mode, Current Record 
Pointer, I-O Status, INVALID KEY, AT END, and LINAGE-COUNTER are discussed pertaining to 
Sequential, Indexed, Relative, and Sort-Merge files. 


Sequential 1-O 


Sequential I-O provides a capability to access records of a file in established sequence. The sequence 
is established as a result of writing the records to the file. It also provides for the sharing of memory 
areas among files. 


Sequential I-O provides full facilities for the FILE-CONTROL, I-O-CONTROL, and FD entries as 
specified in the formats of this manual. Within the PROCEDURE DIVISION, Sequential I-O provides 
full capabilities for the CLOSE, OPEN, READ, REWRITE, USE, and WRITE statements . Additional 
features available include: OPTIONAL files, the RESERVE clause, SAME RECORD AREA, RE- 
VERSED, and EXTEND options. 


Relative [-O 


Relative I[-O provides the capability to access records of a mass storage file in either a random or se- 
quential manner. Each record in a relative file is uniquely identified by an integer value greater than 
zero which specifies the record’s logical ordinal position in the file. 


Relative [-O has full facilities for the FILE-CONTROL, I-O-CONTROL, and FD entries as specified 
in the formats of this manual. Within the PROCEDURE DIVISION, the Relative I-O provides full 
capabilities for the CLOSE, DELETE, OPEN, READ, REWRITE, START, USE, and WRITE state- 
ments. Additional features available include: the RESERVE clause, DYNAMIC accessing, SAME REC- 
ORD AREA, READ NEXT, and the START statement. 


\ 


For more information on the structure of the Relative file, see appendix G in this manual. 


Indexed |-O 

Indexed I-O provides a capability to access records of a mass storage file in either a random or sequen- 
tial manner. Each record in an indexed file is uniquely identified by the value of one or more keys 
within that record. 


Indexed I-O provides full facilities for the FILE-CONTROL, I-O-CONTROL, and FD entries as 
specified in the formats for this manual. Within the PROCEDURE DIVISION, the Indexed I-O pro- 
vides full capabilities for the CLOSE, DELETE, OPEN, READ, REWRITE, START, USE, and 
WRITE statements as specified in the formats for this manual. Additional features include: the RE- 
SERVE clause, DYNAMIC accessing, ALTERNATE KEYS, SAME RECORD AREA, READ NEXT, 
and the START statement. 


Appendix G in this manual includes information on the structure and concepts of Indexed Sequential 
Access Method files, as well as efficient use and maintenance of the ISAM file. 
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( 
Sort-Merge 


The Sort-Merge module provides the capability to order one or more files of records, or to combine 
two or more identically ordered files of records, according to a set of user-specified keys contained 
within each record. Optionally, a user may apply some special processing to each of the individual rec- 
ords by input or output procedures. This special processing may be applied before and/or after the 
records are ordered by the SORT or after the records have been combined by the MERGE. 


Sort-Merge provides the facility for sorting one or more files, or combining two or more files, one 
or more times within a given execution of a COBOL74 program. 


Relationship with Sequential !-O 


The files specified in the USING phrase of the SORT and MERGE statements must be described impli- 
citly or explicitly in the FILE-CONTROL paragraph as having sequential organization. 


The file specified in the GIVING phrase of the SORT and MERGE statements must be described impli- 
citly or explicitly in the FILE-CONTROL paragraph as having sequential organization. 


No input-output statement may be executed for the file named in the Sort-Merge file description. 
Organization 


Sequential Files are organized such that each record in the file except the first has a unique predecessor 
record, and each record except the last has a unique successor record. These predecessor-successor rela- 
tionships are established by the order of WRITE statements when the file is created. Once established, 
the predecessor-successor relationships do not change except in the case where records are added to 
the end of the file. 


Relative File organization is permitted only on mass storage devices. A Relative File consists of records 
which are identified by relative record numbers. The file may be thought of as composed of a serial 
string of areas, each capable of holding .a logical record. Each of these areas is denominated by a 
relative record number. Records are stored and retrieved based on this number. For example, the tenth 
record is the one addressed by relative record number 10 and is in the tenth record area, whether or 
not records have been written in the first through the ninth record areas. 


A file whose organization is Indexed is a mass storage file in which data records may be accessed by 
the value of a key. A record description may include one or more key data items, each associated with 
an index. Each index provides a logical path to the data records according to the contents of a data 
item within each record which is the record key for that index. 


i 
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The data item named in the RECORD KEY clause of the file control entry for an Indexed File is the 
prime record key for that file. For purposes of inserting, updating, and deleting records in a file, each 
record is identified solely by the value of its prime record key. This value must, therefore, be unique 
and must not be changed when updating the record. 


A data item named in the ALTERNATE RECORD KEY clause of the file control entry for an Indexed 
File, is an alternate record key for that file. The value of an alternate record key may be nonunique 
if the DUPLICATES phrase is specified. These keys provide alternate access paths for retrieval of rec- 
ords from the file. 


Access Mode 


The ACCESS MODE clause specifies the manner in which records are accessed in a file. There are 
three access modes: sequential, random, and dynamic. The allowable access modes, based upon the 
specified organization of the file, are discussed in the following paragraphs. 


Sequential Files 


In the sequential access mode, the sequence in which records are accessed is by the ascending order 
of ordinal location within the file. This order is established when the records are originally written to 
the file. 


In the random access mode, the sequence in which records are accessed is specified by the contents 
of the ACTUAL KEY data item at the time the READ or WRITE statement is executed. The value 
of the ACTUAL KEY data item supplies the ordinal record number of the record to be accessed. 


Relative File 


In the sequential access mode, the sequence in which records are accessed is the ascending order of 
the relative record numbers of all records which currently exist within the file. 


In the random access mode, the sequence in which records are retrieved is controlled by the program- 
mer. The desired record is accessed by placing its relative record number in a relative key data item. 


In the dynamic access mode, the programmer may change at will from sequential access to random 
access using appropriate forms of input-output statements. 


Indexed Files 


In the sequential access mode, the sequence in which records are accessed is the ascending order of 
the record key values. The order of retrieval of records within a set of records having duplicate record 
key values is the order in which the records were written into the set. 


In the random access mode, the sequence in which records are accessed is controlled by the program- 
mer. The desired record is accessed by placing the value of the record key in a record key data item. 


In the dynamic access mode, the programmer may change at will from sequential access to random 
access using appropriate forms of input-output statements. 
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Current Record Pointer 


For all file types, and for each user, the current record pointer is a conceptual entity used in selection 
of the next record to be accessed within a given file. The setting of the current record pointer is af- 
fected only by the OPEN, START, and READ statements. The WRITE statement for a sequentially 
organized file may also affect the setting of the current record pointer. 


l-O Status 


If the FILE STATUS clause is specified in a file control entry, a value is placed into the specified — 
two-character data item during the execution of an OPEN, CLOSE, READ, WRITE, REWRITE, DE- 
LETE, or START statement and before any applicable USE procedure is executed, to indicate to the 
COBOL74 program the status of that input-output operation. The specification of the FILE STATUS 
clause (or a USE procedure) for a file indicates that the program is capable of determining and correct- 
ing any errors encountered during an JI-O operation on that file. 


Interrogation and proper interpretation of the FILE STATUS data item after an I-O operation on a 
file helps to insure the integrity of that file and can be an aid when debugging the program. 


Status Key 1 


The leftmost character position of the FILE STATUS data item is known as status key 1 and is set 
to a value which indicates one of the following conditions upon completion of the input-output 
operation. 


Value Condition 


0 Successful Completion 

1 At End 

2 Invalid Key 

3 Permanent Error 

8 Burroughs-Defined Condition 
9 Burroughs-Defined Condition 


The above conditions are defined in following text. 


Successful Completion 


The input-output statement was successfully executed. 


At End 
The sequential READ statement was unsuccessfully executed as a result of: 


1. An attempt to read other than a queue or port file record when no next logical record exists 
in the file. 


2. The first READ statement being executed for a file described with the OPTIONAL clause, 


when that file was not available to the program at the time its associated OPEN statement was 
executed. 
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Invalid Key 


The input-output statement was unsuccessfully executed as a result of one of the following: 


1. For a Format 2 READ statement, on other than a queue or port file, the contents of the AC- 
TUAL KEY data item were less than 1 or greater than the original number of the last record 
ever written to the file. 


2. For a Format 2 WRITE statement, on other than a queue or port file, the contents of the AC- 
TUAL KEY data item were less than 1 or greater than the last record allowed to be written 
because of the specification of a maximum file size. 


Permanent Error 


The input-output statement was unsuccessfully executed as the result of a boundary violation for a se- 
quential file or as the result of an input-output error, such as data check parity error, or transmission 
error. When there is no FJLE STATUS clause and no USE procedure specified for a file, detection 
of a Permanent Error condition will cause the program to terminate abnormally. 


Burroughs-Defined Condition 


The input-output statement encountered conditions other than those already defined and may have been 
unsuccessfully executed, depending on the value of status key 2. 


Status Key 2 


The rightmost character position of the FILE STATUS data item is known as status key 2 and is used 
to further describe the results of the input-output operation. This character contains a value as follows: 


1. If no further information is available concerning the input-output operation, then status key 
2 contains a value of 0. 


2. When status key | contains a value of 0 indicating a successful completion, status key 2 may 
contain a value of 2 indicating a duplicate key. This condition indicates: 


a. For a READ statement, the key value for the current key of reference is equal to the value 
of that same key in the next record within the current key of reference. 
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b. For a WRITE or REWRITE statement, the record just written created a duplicate key val- 
ue for at least one alternate record key for which duplicates are allowed. 


3. When status key 1 contains a value of 2 indicating an INVALID KEY condition, status key | 
2 is used to designate the case of that condition as follows: 


a. A value of 1 in status key 2 indicates a sequence error for a sequentially accessed indexed 
file. The ascending sequence requirements of successive record key values have been 
violated (refer to WRITE in section 7), or the prime record key value has been changed 
by the COBOL74 program between the successful execution of a READ statement and the 
execution of the next REWRITE statement for that file. 


b. A value of 2 in status key 2 indicates a duplicate key value. An attempt was made to write 
or rewrite a record that would create a duplicate key in an indexed file. 


c. A value of 3 in status key 2 indicates no record found. An attempt is made to access a 
record, identified by a key, but that record does not exist in the file. 


d. A value of 4 in status key 2 indicates a boundary violation. An attempt was made to write 
beyond the externally defined boundaries of an indexed file. The compiler specifies the 
manner in which these boundaries are defined. 


4. When status key 1 contains a value of 3 indicating a permanent error condition, status key 2 
may contain a value of 4 indicating a boundary violation. This condition indicates that an at- 
tempt was made to write beyond the externally defined boundaries of a sequential file. The 
compiler specifies the manner in which these boundaries are defined. 


6. When status key 1 contains a value of 9 indicating a Burroughs-defined condition, the value 
of status key 2 indicates the condition as follows: 


Status Key 2 


Value Condition 
1 Short Block 
2 Data Error | 
4 Q-Empty or No Data 
5 Q-Full or No Buffer 
6 Timeout 
zi Break on Output 
9. Unexpected I-O Error 


Short Block 


Because of the limitation of the physical recording medium, the system is unable to determine whether 
the logical record returned had been written to the file. Determination of the validity of the data record 
is the responsibility of the programmer. 
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Data Error 


When logical records are declared variable in length and the logical record length is supplied by the 
programmer (by means of the RECORD CONTAINS clause), a data error occurs on a READ, 
WRITE, or REWRITE statement if the logical record length supplied is less than the minimum record 
size or greater than the maximum record size declared for the file. This condition initiates no input- 
output operation nor does it cause data to be transferred to or from the record area. 


Timeout 


A time limit has elapsed prior to the transfer of data to or from the hardware device. | 


Break on Output 


For an output or input-output file, this condition occurs if the physical hardware device is equipped 
with a break such that an operator can halt the transfer of data in process. 


Unexpected 1-O Error 
An error may have occurred in the input-output operation but its nature cannot be determined. 


Valid Combinations of Status Keys 1 and 2 


The valid permissible combinations of the values of status key 1 and status key 2 are shown in table 
5-1. The letter I (Indexed), P (Port), R (Relative), S (Sequential), or a Queue). at an intersection indi- 
cates a valid permissible combination. 
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INPUT-OUTPUT SECTION 
FILE CONCEPTS 


Table 5-1. Status Key Combinations 


STATUS KEY 2 


Boundary Violatio 


No Record Found = 


Duplicate Key or (*Data Error) 
Sequence Error or (*Short Block) 
No — | 
0 ] 2 


| 4 
Successful] | 
Completion| R ] 
0 S 


Timeout 


—Break on Output 


[— Error 
7 9 


At l 
S End R 
. ] S$ 
A 
T Invalid 
J Key 
S 2 
Permanent | 
K Error R 
E | S 
Y 
} 
Burroughs 
-Defined 
9 


The (*) distinguishes which error occurred when there are 
two with the same value. 
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Invalid Key 


The INVALID KEY condition can occur as a result of the execution of a START, READ, WRITE, 
REWRITE, or DELETE statement. For details of the causes of the condition, refer to the START, 
READ, WRITE, REWRITE, and DELETE statements in section 7. 


When the INVALID KEY condition is recognized, these actions are taken in the following order: 


1. A value is placed into the FILE STATUS data item, if specified for this file, to indicate an 
INVALID KEY condition. Refer to I-O Status in this section for additional information. 


2. If the INVALID KEY phrase is specified in the statement causing the condition, control is 
transferred to the INVALID KEY imperative statement. Any USE procedure specified for this 
file is not executed. 


3. If the INVALID KEY phrase is not specified, but a USE procedure is specified for this file, 
either explicitly or implicitly, that procedure is executed. 


When the INVALID KEY condition occurs, execution of the input-output statement which recognized 
the condition is unsuccessful and the file is not affected. 


At End 


The AT END condition can occur as a result of the execution of a READ statement. For details of 
the causes of the condition refer to the READ statement in section 7. , 


Linage-Counter 


For Sequential Files only, the reserved word LINAGE-COUNTER is a name for a special register gen- 
erated by the presence of a LINAGE clause in a file description entry. The implicit description is that 
of an unsigned integer whose size is equal to the size of integer-1 or the data item referenced by data- ° 
name-1! in the LINAGE clause. Refer to the LINAGE clause in section 6 for the rules governing the 
LINAGE-COUNTER. 
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FILE-CONTROL PARAGRAPH 


The FILE-CONTROL paragraph names each file and allows specification of other file-related informa- 
tion. | 


General Format: 


| FILE-CONTROL. { file-control-entry bess 


File Control Entry 


The file control entry names a file and may specify other file-related information. If using the sort- 
merge features, the file control entry names a sort or merge file and specifies the association of the 
file to a storage medium. 
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General Format: 


INPUT-OUTPUT SECTION. 
FILE-CONTROL. 


SELECT [OPT 


ASSIGN TO 


AREA | 


; RESERVE integer-2 
AREAS 


[ ; ORGANIZATION IS SEQUENTIAL |] 


SEQUENTIAL [3 


[ ACCESS MODE IS 


; ORGANIZATION IS INDEXED 


RANDOM 
DYNAMIC 


ACCESS MODE IS 


SEQUENTIAL [, RELATIVE KEY IS data-name- | 
RANDOM 
-|:; ACCESS MODE IS , RELATIVE KEY IS data-name-3 
! DYNAMIC | 
| Raxpou | | 


; RECORD KEY IS data-name-4 
{; ALTERNATE RECORD KEY IS data-name-5 [WITH DUPLICATES] ] ... 


f - ORGANIZATION IS RELATIVE 


[; FILE STATUS IS data-name-1]. 
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Syntax Rules: 


1. The SELECT clause must be specified first in the file control entry. The clauses which follow 
the SELECT clause may appear in any order. 


2. Each file described in the DATA DIVISION must be named only once with a file-name in the 
FILE-CONTROL paragraph. Each file specified in the file control entry must have a file de- 
scription entry in the DATA DIVISION. For an Indexed File, the first eight letters of the file- 
name must be unique. 


3. If the ACCESS MODE clause is not specified, the ACCESS MODE IS SEQUENTIAL clause 
without the ACTUAL KEY phrase is implied. 


4. Data-name-1 must be defined in the DATA DIVISION as a two-character data item of the 
category alphanumeric and must not be defined in the FILE SECTION or the COMMUNICA- 
TION SECTION. 


9. The ORGANIZATION IS SEQUENTIAL clause applies only to the program in which it is 
specified. 


10. The OPTIONAL phrase may only be specified for sequential input files. Its specification is re- 
quired for input files that are not necessarily present each time the object program is executed. 


11. The ACTUAL KEY phrase may be specified only for mass storage files, port files, and queue 
files. 


13. If a relative file is to be referenced by a START statement, the RELATIVE KEY phrase must 
be specified for that file. 


14. Data-name-3 must not be defined in a record description entry associated with that file-name. 
15. The data item referenced by data-name-3 must be defined as an unsigned integer. 


16. The data items referenced by data-name-4 and data-name-5 must each be defined as a data item 
of the category alphanumeric within a record description entry associated with that file-name. 
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17. Neither data-name-4 nor data-name-5 can describe an item whose size is variable. Refer to the - 
OCCURS clause in section 6 for more information. 


18. Data-name-5 cannot reference an item whose leftmost character position corresponds to the left- 
most character position of an item referenced by data-name-4 or by any other data-name-5 as- 
sociated with this file. 


General Rules: 


1. The ASSIGN clause specifies the association of the file referenced by file-name to a storage 
medium. For Relative and Indexed Files, the storage medium must be DISK. 


4. The ORGANIZATION clause specifies the logical structure of a file. The file organization is 
established at the time a file is created and cannot subsequently be changed. 


6. When the access mode of a Relative File is sequential, records in the file are accessed in the 
order of ascending relative record numbers of existing records in the file. 


7. When the access mode of an Indexed File is sequential, records in the file are accessed in the 
order of ascending record key values within a given key of reference. 


8. When the FILE STATUS clause is specified, a value is moved by the operating system into 
the data item specified by data-name-1 after the execution of every statement that references 
that file either explicitly or implicitly. This value indicates the status of execution of the state- 
ment. Refer to I-O Status in this section for additional information. 


9. If the access mode of a Relative File is random, the value of the RELATIVE KEY data item 
indicates the record to be accessed. 


10. If the access mode of an Indexed File is random, the value of the RECORD KEY data item 
indicates the record to be accessed. 


11. When the access mode is dynamic, records in the file may be accessed sequentially and/or ran- 
domly. Refer to General Rules 5 and 8, or 6 and 9 under the FILE-CONTROL statement. 
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All records stored in a Relative File are uniquely identified by relative record numbers. The 
relative record number of a given record specifies the record's logical ordinal position in the 
file. The first logical record has a relative record number of 1, and subsequent logical records 
have relative record numbers of 2, 3, 4, and so forth. 


In a Relative File, the data item specified by data-name-3 is used to communicate a relative 
record number between the program and the MCP. 


The RECORD KEY clause specifies the prime record key for the file. The values must be 
unique among records of the file. The prime record key provides an access path to records in 
an Indexed File. 


An ALTERNATE RECORD KEY clause specifies an alternate record key for the file and pro- 
vides an alternate access path to records in an Indexed File. 

In an Indexed File, the data descriptions of data-name-4 and data-name-5 as well as the relative 
locations within a record must be the same as that used when the file was created. The number 
of alternate keys for the file must also be the same as that used when the file was created. 


The DUPLICATES phrase specifies that the value of the associated alternate record key may 
be duplicated within any of the records in the file. If the DUPLICATES phrase is not specified, 
the value of the associated alternate record key must not be duplicated among any of the rec- 
ords in the file. 


DISK specifies that mass storage is the storage medium of the file. A more precise specification 
of the medium may be made in the VALUE OF clause in the File Description entry or by means 
external to the language. 
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The I-O-CONTROL paragraph specifies the memory area which is to be shared by different files, and 
the location of files on a multiple file reel. 


General Format: 


I-O-CONTROL. 


RECORD 
; SAME | SORT AREA FOR file-name-3 {, file-name-4 | 
SORT-MERGE 


Syntax Rules: 


1. The I-O-CONTROL paragraph is optional. 
2. In the SAME AREA clause, SORT and SORT-MERGE are equivalent. 


3. If the SAME SORT AREA or SAME SORT-MERGE AREA clause is used, at least one of 
the file-names must represent a sort or merge file. Files that do not represent sort or merge 
files may also be named in the clause. 


4. The four formats of the SAME clause (SAME AREA, SAME RECORD AREA, SAME SORT 
AREA, SAME SORT-MERGE AREA) are considered separately in the following description. 


More than one SAME clause may be included in a program; however, the following restrictions apply: 
a. A file-name must not appear in more than one SAME AREA clause. 
b. A file-name must not appear in more than one SAME RECORD AREA clause. 


c. If one or more file-names of a SAME AREA clause appear in a SAME RECORD AREA 
clause, all of the file-names in that SAME AREA clause must appear in the SAME REC- 
ORD AREA clause. However, additional file-names not appearing in that SAME AREA 
clause may also appear in that SAME RECORD AREA clause. The rule that only one 
of the files mentioned in a SAME AREA clause can be open at any given time takes pre- 
cedence over the rule that all files mentioned in a SAME RECORD AREA clause can be 
Open at any given time. 


d. A file-name that represents a sort or merge file must not appear in more than one SAME 
SORT AREA or SAME SORT-MERGE AREA clause. 
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e. If a filename that does not represent a sort or merge file appears in a SAME AREA clause 
and one or more SAME SORT AREA or SAME SORT-MERGE AREA clauses, all of 
the files named in that SAME AREA clause must be named in that SAME. SORT AREA 
or SAME SORT-MERGE AREA clause(s). 


5. The files referenced in the SAME AREA, SAME RECORD AREA, SAME SORT AREA, or 
SAME SORT-MERGE AREA clause need not all have the same organization or access type. 


General Rules: 


1. If the SAME SORT AREA or SAME SORT-MERGE AREA clause is used, at least one of 
the file-names must represent a sort or merge file. Files that do not represent sort or merge 
files may also be named in the clause. This clause specifies that storage is shared as follows: 


a. The SAME SORT AREA or SAME SORT-MERGE AREA clause specifies a memory area 
which is made available for use in sorting or merging each sort or merge file named. Thus, 
any memory area allocated for the sorting or merging of a sort or merge file is available 
for reuse in sorting or merging any of the other sort or merge files. 


b. In addition, storage areas assigned to files that do not represent sort or merge files may 
be allocated as needed for sorting or merging the sort or merge files named in the SAME 
SORT AREA or SAME SORT-MERGE oa clause. The extent of such allocation is 
specified by the MCP. 


c. Files other than sort or merge files do not share the same storage area with each other. 
If the user wishes these files to share the same storage area with each other, a SAME 
AREA or SAME RECORD AREA clause naming these files must also be included in the 
program. 


d. During the execution of a SORT or MERGE statement that refers to a.sort or merge file 
named in this clause, any files named in this clause that are not sort-merge files must not 
be open. 


2. The SAME AREA clause specifies that two or more files that do not represent sort or merge 
files are to use the same memory area during processing. The area being shared includes. all 
storage area assigned to the files specified. It is not valid to have more than one of the files 
open at the same time. Refer to syntax rule 4c under the I-O-CONTROL paragraph. 


3. The SAME RECORD AREA clause specifies that two or more files are to use the same memory 
area for processing of the current logical record. All of the files may be open at the same time. : 
A logical record in the SAME RECORD AREA is considered as a logical record of each opened 
output file whose file-name appears in this SAME RECORD AREA clause and of the most 
recently read input file whose file-name appears in this SAME RECORD AREA clause. This 
is equivalent to an implicit redefinition of the area; records are aligned on the leftmost character 
position. 


1168622 5-25 


B 1000 Systems COBOL74 Language Manual 
Environment Division 


ENVIRONMENT DIVISION CODING 


CODING THE ENVIRONMENT DIVISION 


Figure 5-1 provides an example of how the ENVIRONMENT DIVISION may be coded in the source 
program. 
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GENERAL | 


The DATA DIVISION describes the data that the object program is to accept as input, to manipulate, 
to create, or to produce as output. Data to be processed belongs to these three categories: 


1. That which is contained in files and enters or leaves the internal memory of the computer from 
a specified area or areas. 


2. That which is developed internally and placed into intermediate or working storage, or placed 
into specific format for output reporting purposes. 


3. Constants which are defined by the user. 


DATA DIVISION ORGANIZATION 


The DATA DIVISION, which is one of the required divisions in a program, is subdivided into sections. 
These are FILE, WORKING-STORAGE, LINKAGE, and COMMUNICATION SECTIONS. 


The FILE SECTION defines the structure of data files. Each file is defined by a file description entry 
and one or more record descriptions. Record descriptions are written immediately following the file . 
description entry. 


The WORKING-STORAGE SECTION describes records and noncontiguous data items which are not 
part of external data files but are developed and processed internally. It also describes data items whose 
values are preassigned in the source program. 


The LINKAGE SECTION appears in the called program and describes data items that are to be refer- 
red to by the calling program and the called program. The structure is the same as the WORKING- 
STORAGE SECTION. 


The COMMUNICATION SECTION describes the data items in the source program that serve as the 
interface between the Data Communication Subsystem and the program. 
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The following structure shows the general format of the sections of the DATA DIVISION, and defines 
the order of presentation in the source program. 


DATA DIVISION. 


FILE SECTION. 


eae [record-description-entry] ... | 
sort-merge-file-description-entry (record-description-entry) ... 


WORKING-STORAGE SECTION. 


[ 77-level-description-entry 
record-description-entry 


LINKAGE SECTION. 


[7 7-level-description-entry 
record-description-entry 


COMMUNICATION SECTION. 


end oe ee ae hee Ear ey 


[ communication-description-entry  [record-description-entry] ... ] 
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FILE SECTION 


In a COBOL74 program, the file description entry (FD) represents the highest level of organization 
in the FILE SECTION. The FILE SECTION header is followed by a file description entry consisting 
of a level indicator (FD), a file-name, and a series of independent clauses. The FD clauses specify the 
size of the logical and physical records, the presence or absence of label records, the value of label 
items, the names of the data records which comprise the file, and the number of lines to be written 
on a logical printer page. The entry is terminated by a period. 


The Sort-Merge file description (SD) gives information about the size and the name of the data records 
associated with the file to be sorted or merged. There are no label procedures which the user can con- 
trol, and the rules for blocking and internal storage are peculiar to the SORT and MERGE statements. 


Record Description 


A record description consists of a set of data description entries which describe the characteristics of 
a particular record. Each data description entry consists of a level-number followed by a data-name 
(if required), followed by a series of independent clauses as required. 


Examples: 


01 DATA-ITEM-ONE PICTURE X(10). 
03 LINE-COUNT PICTURE 999 VALUE ZEROES. 


A record description has a hierarchical structure and, therefore, the clauses used with an entry may 
vary considerably, depending upon whether or not it is followed by subordinate entries. The structure 
of a record description is defined in Concepts of Levels, section 2, while the elements allowed in a 
record description are shown in the data description structure. 


File Description Structure 


The file description entry furnishes information concerning the physical structure, identification, and 
record names pertaining to a given file. ; 
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General Format: 


[ED file-name 


RECORDS 
; BLOCK CONTAINS [integer-1 TO] integer-2 
CHARACTERS 


[ ; RECORD CONTAINS [integer-3 TO] integer-¢ CHARACTERS 
[ DEPENDING ON data-name-! ] ] 


RECORD IS STANDARD 
; LABEL 
RECORDS ARE OMITTED 


data-name-2 
; VALUE OF attribute-name-1 IS 


literal-1 
data-name-3 
, attribute-name-2 IS . 
literal-2 
RECORD IS 
- DATA data-name-4 [, data-name-5] ... 
RECORDS ARE 
| data-name-6 ( data-name-7 
- LINAGE IS LINES |, WITH FOOTING AT 
integer-5 Li ransne 
data-name-8 data-name-9 ) 
‘, LINES AT TOP , LINES AT BOTTOM 
integer-7 integer-8 ( 


[. CODE-SET IS alphabet-name }. 


{ record-description-entry ae | 


Syntax Rules: 


1. The level indicator FD identifies the beginning of a file description and must precede the file- 
name. 


2. The clauses which follow the name of the file are optional in many cases, and order of appear- 
ance is immaterial. : 


3. One or more record description entries must follow the file description entry. 
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Sort-Merge File Description Structure 


The Sort-Merge file description entry furnishes information concerning the physical structure, identifi- 
cation, and record names of the file to be sorted or merged. 


General Format: 


[ sp file-name 
[; RECORD CONTAINS _ [integer-1 TO] integer-2 CHARACTERS 
[ DEPENDING ON data-name-1 ] ]}. 


RECORD IS 
; DATA data-name-2 [ , data-name-3] ... 
RECORDS ARE 


{ record-description-entry sod | 


Syntax Rules: 


1. The level indicator SD identifies the beginning of the Sort-Merge file description entry and must 
precede the file-name. 


2. The clauses which follow the name of the file are optional and their order of appearance is 
immaterial. 


3. One or more record description entries must follow the Sort-Merge file description entry; how- 
ever, no input-output statements may be executed for this file. 
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CODING THE FILE SECTION 


Figure 6-1 illustrates the coding of the FILE SECTION and shows a File Description and a Sort-Merge 
File Description. 
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The BLOCK CONTAINS clause specifies the size of a physical record. 


General Format: 


RECORDS 


| 


BLOCK CONTAINS _[ integer-1 TO ] integer-2 


CHARACTERS 


Syntax Rules: 


1. When the word RECORDS is not specified, the value of integer-2 must not be less than the 


largest record specified for the file. 


General Rules: 


1. 


6-8 


This clause is required when the physical record contains more than one logical record. If this 
clause is not specified, the physical record is presumed to contain one logical record that is as 
large as the largest record specified for this file. 


When the word RECORDS is specified, the physical record size is considered to be integer-2 
times the largest record specified for this file. 


. When the word CHARACTERS is specified, the physical record size is considered to be integer- 


2 characters. If integer-2 is not a multiple of the largest record specified for this file, the 
physical record size is adjusted so that it is a multiple of the largest record specified, but must 
not exceed the value of integer-2. . 


. Integer-2 represents the exact number of records or characters in the physical record unless the 


size is adjusted as stated in General Rule 3. 


. If logical records of differing sizes are grouped into one physical record, the amount of data 


transferred from the record area to the physical record depends on the size of the record named 
in the WRITE or REWRITE statement. In this case, the logical records are aligned on 
maximum record-size boundaries. If the size of the record named is not equal to the maximum 
record size specified for the file, the data is transferred to the physical record according to the 
rules specified for the MOVE statement without the CORRESPONDING phrase, with the send- 
ing area considered to be a group item. 
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1168622 ; 6-9 


B 1000 Systems COBOL74 Language Manual 
Data Division 


CODE-SET 
_ The CODE-SET clause specifies the character code set used to represent data on the external media. 


General Format: 


| CODE-SET IS alphabet-name & hl | 


Syntax Rules: 


1. When the CODE-SET clause is specified for a file, all data in that file must be described as 
USAGE IS DISPLAY and any signed numeric data must be described with the SIGN IS 
SEPARATE clause. 


2. The alphabet-name clause referenced by the CODE-SET clause must not specify the literal 
phrase, and must be declared in the SPECIAL-NAMES Paragraph. 


General Rules: 


1. If the CODE-SET clause is specified, alphabet-name specifies the character code convention 
used to represent data on the external media. It also specifies the algorithm for converting the 
character codes on the external media from/to the native character codes. This code conversion 
occurs during the execution of an input or output operation. Refer to the SPECIAL-NAMES ° 
paragraph in section 5. 


2. If the CODE-SET clause is not specified, the native character code set, eee is assumed 
for data on the external media. 


3. For the creation of the translate table to be used by the COBOL74 compiler, refer to the 
CREATE/TABLE utility. For example, when ASCII is the character code set, the COBOL74 
compiler requires a file called TRANSLATE/ASCII to perform the translation. The file, 
TRANSLATE/ASCII, is created by using the CREATE/TABLE utility. 


EXAMPLE: 


The following example shows how the character code set desired is declared in the SPECIAL-NAMES 
paragraph and then used in the CODE-SET clause. 


SPECIAL-NAMES. 
ODT 1S SPO 
SW1 ON STATUS IS SWITCH-1-ON 
MY-REC-MODE IS ASCII. 


FD IN-FILE 
BLOCK CONTAINS 5 RECORDS 
CODE~SET !S MY-REC-MODE. 


O1 DATA-ITEM-ONE PIC X (80). 
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DATA RECORDS 


The DATA RECORDS clause serves only as documentation for the names of data records with their 
associated file. 


General Format: 


RECORD IS ] 


DATA data-name-1 [, data-name-2 ] 


RECORDS ARE J 
Syntax Rules: 


1. Data-name-! and data-name-2 are the names of data records and must have 01 level-number 
record descriptions, with these same names, associated with them. 


General Rules: 
1. The presence of more than one data-name indicates that the file contains more than one type 
of data record. These records may be of different sizes, different formats, and so forth. The 
order in which they are listed is not significant. 


2. Conceptually, all data records within a file share the same area. This is in no way altered by 
the presence of more than one type of data record within the file. 
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The LABEL RECORDS clause specifies whether labels are present. 


General Format: 


LABEL 


f RECORD IS ] f STANDARD 


" RECORDS ARE | ( OMITTED 


| Syntax Rules: 
1. When this clause is not specified, the STANDARD option is assumed. 
General Rules: 


1. OMITTED specifies that no explicit labels exist for the file or the device to which the file is 
assigned. For Indexed and Relative Files, OMITTED is documentation only. 


2. Ina Sequential File, STANDARD specifies that labels exist for the file or the device to which 
the file is assigned and the labels conform to the label pea: 


3. The LABEL RECORDS clause is ignored for mass storage files. All mass storage files are la- 
beled. 


6-12 


B 1000 Systems COBOL74 Language Manual 
Data Division 


LINAGE 


LINAGE 


The LINAGE clause provides a means for specifying the depth of a logical page in terms of number 
of lines. It also provides for specifying the size of the top and bottom margins on the logical page, 
and the line number, within the page body, at which the footing area begins. 


General Format: 


oo . . oS . ooo 
LINAGE IS. integer-1 .{ LINES | , WITH FOOTING AT { integer-2 


data-name-3 


data-name-4 \ 
integer-3 


ae [ LINES AT BOTTOM aes 


fs LINES AT TOP 
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The relationship of the page components is shown in figure 6-2. 


TOP MARGIN 
(Integer-3) 


LOGICAL PAGE PAGE BODY 
(Integer-1) 


FOOTING 
(Integer-2) 


BOTTOM MARGIN 
(Integer-4) 


G12331 


Figure 6-2. Linage Page Relationship 
Syntax Rules: | 
1. Data names must be elementary unsigned numeric items. 
2. The value of integer-1 must be greater than zero. 
3. The value of integer-2 must not be greater oe integer-1. 


4. Integer-3 and integer-4 may be equal to zero. 
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General Rules: 


1. The LINAGE clause provides a means for specifying the size of a logical page in terms of the 
number of lines. 
Example: 


Logical page = LINAGE LINES + LINES AT TOP + LINES AT BOTTOM 


If LINES AT TOP or LINES AT BOTTOM are not specified, the values for these functions 
are 0. 


If the FOOTING phrase is not specified, the assumed value is equal to integer-1 (or data-name- 


1). 


There is not necessarily any relationship between the size of the logical page and the size of 
a physical page. 


2. The value of integer-1 (data-name-1) specifies the number of lines that can be written and/or 
spaced:on the logical page. That part of the logical page in which these lines can be written 
and/or spaced is called the page body. 


3. The value of integer-3 (data-name-3) specifies the number of lines that comprise the top margin 
on the logical page. 


4. The value of integer-4 (data-name-4) specifies the number of lines that comprise the bottom 
margin on the logical page. 


5. The value of integer- -2 (data-name-2) specifies the line number within the page body at which 
the. ‘footing area begins, where 0 < integer-2. < integer-1. 


6. The values of integer-1, integer-2, and integer-4, if specified, are used at the time the file is 
Zs opened with the: OUTPUT phrase, to specify the number of lines that comprise each of the 
7 ‘indicated sections ‘of a logical page. 


The value of integer-2,. if. specified, is used at that time to define the footing area. 


These values are used for all logical pages written for the file during a given execution of the 
program. 


7. The values of the dats items ference iy eat -name- I, Anta: -name-3, and data- -name- -4, if spec- 
ified, are used as follows: 


a. The values of the data items, at the time an OPEN statement with the OUTPUT phrase 
is executed for the file, are used to specify the number of lines that are to SOMIDEISE each 
of the indicated sections of the FIRST logical page. 


b. The values of the data items, at the time a WRITE statement with the ADVANCING 


PAGE phrase is executed or page overflow condition occurs, are used to specify the num- 
ber of lines that are to comprise each of the indicated sections for the next logical page. 
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8. The value of data-name-2, if specified at the time an OPEN statement with the OUTPUT 
phrase is executed for the file, is used to define the footing area for the first logical page. At 
the time a WRITE statement with the ADVANCING PAGE phrase is executed or a page over- 
flow condition occurs, data-name-2 is used to define the footing area for the next logical page. 


LINAGE- COUNTER 


A LINAGE-COUNTER is generated by the presence of a LINAGE clause The value in the LINAGE- 
COUNTER at any given time represents the line number at which the logical device is positioned within 
the current page body. The rules governing the LINAGE-COUNTER are as follows: 


1. A separate LINAGE-COUNTER is supplied for each file described in the FILE SECTION 
whose file description entry contains a LINAGE clause. 


2. LINAGE-COUNTER may be referenced but not modified by PROCEDURE DIVISION state- 
ments. 


Since more than one LINAGE-COUNTER may exist in a program, the user must vente 
LINAGE-COUNTER by file name when necessary. 


3. LINAGE-COUNTER is automatically modified, according to the following rules, during the ex- 
ecution of a WRITE statement: 


a. When the ADVANCING PAGE phrase of the WRITE statement is specified, the 
LINAGE-COUNTER is automatically reset to 1. 


b. When the ADVANCING identifiter-2 or the integer phrase of the WRITE statement is spec- 
ified, the LINAGE-COUNTER is incremented by integer or the value of identifier-2. 


c. When the ADVANCING phrase of the WRITE statement is not specified, the LINAGE- 
COUNTER is incremented by the value of 1. 


d. The value of LINAGE-COUNTER is automatically reset to 1 when the device is reposi- 
tioned to the first line that can be written on for each of the succeeding logical pages. 


4. The value of LINAGE-COUNTER is automatically set to 1 at the time an OPEN statement 
is executed for the associated file. 


Example: 
The following example shows the LINAGE clause used to define a logical printer page (standard 11- 
inch form). Vertical height is made up of a top margin, a page body, and a bottom margin. All actual 


printing is done in the page body, including a commonly required footing area of five lines near the 
bottom of the page body. 
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Now equate: 


page body 
footing 

top margin 
bottom margin 


the statement would be 


L INAGE 
W 
E 
a 


1168622 


to 
to 
to 
to 


integer-] 
integer-2 
integer-3 
integer-4 


iS 50 LINES, 


[TH FOOTING AT 45, 
INES AT TOP 6, 
INES AT BOTTOM 10. 


LINAGE 
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RECORD CONTAINS 
The RECORD CONTAINS clause specifies the size of the data records, 


General Format: 


RECORD CONTAINS [ integer-l TO | integer-2-; CHARACTERS |. 


[DEPENDING ON  data-name-l ]] 


Syntax Rules: 
1, Data-name-1 must reference an elementary unsigned numeric integer four characters in length. 
General Rules: 


1. The size of each data record is completely defined within the record description entry; therefore, 
this clause is never required unless variable length records are desired. If this clause is not in- 
cluded, the size of the data record will be defined as the maximum number of characters in 
the largest size data record that has been included in the record description entries for the file. 


When present, the following items apply: 


a. Integer-2 may not be used by itself unless all the data records in the file have the same 
size. In this case, integer-2 represents the exact number of characters in the data record. 
If integer-1 and integer-2 are both shown, they refer to the minimum number of characters 
in the smallest size data record and the maximum number of characters in the largest size 
data record, respectively. 


b. The size is specified in terms of the number of character positions required to store the 
logical record, regardless of the types of characters used to represent the items within the 
logical record. The size of a record is determined by the sum of the number of characters 
in all fixed length elementary items plus the sum of the maximum number of characters 
in any variable length item subordinate to the record. 


2. For an Indexed File integer-2 cannot be less than four. 


3. If integer-1 and integer-2 are both shown, it is implied that the logical records are variable in 
length, in which case, the following notes apply: 


a. If the DEPENDING clause is not specified, the logical record length is automatically de- 
rived by the compiler and supplied as the first four characters of the record when it is’ 
written and may not be referenced. 
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RECORD CONTAINS 
b. If the DEPENDING clause is specified, the logical record length is supplied by the pro- 
grammer in data-name-1 at the time the record is written and the following notes apply: 
1) Data-name-l must occupy the first four characters of each record of the file. 
2) The logical record length includes the four characters needed to contain the length. 


4. Variable length records are only implemented in files that are described (explicitly or implicitly) 
with sequential organization. In B 1000 Mark 11.0, remote files may be variable in length. 
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DATA-NAME-1 is defined as an alphanumeric data item in the DATA DIVISION. The programmer 
builds the literal string in the data item (DATA-NAME-1) prior to the OPEN of the file. 


01 DATA-NAME-1!I PIC X@5). 


The following are examples of statements which may be used in the PROCEDURE DIVISION to create 
the literal string. 


MOVE "MYFILE” TO DATA-NAME-1. 
MOVE "FAMILY/MYFILE” TO DATA-NAME-1. 
MOVE "“FAMILY/MYFILE ON MYPACK” TO DATA-NAME-1. 


STRING "FAMILY", “/", "MYFILE”, DELIMITED BY SIZE 
INTO DATA-NAME-1. 


STRING "MYFILE”, ” ON ”, "“MYPACK" DELIMITED BY SIZE 
INTO DATA-NAME-1. 


Use of the STRING statement satisfies the requirement that there are no spaces either side of the slash 
(/) when creating the title of the file. 
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A data description entry specifies the characteristics of a particular item of data, 
General Format: 


Format 1: 


data-name-| 
level-number 


FILLER 
[; REDEFINES data-name-2 ] 
PICTURE 
; IS character-string 
PIC 
COMPUTATIONAL 
; {USAGE IS] ) COMP 


DISPLAY 
INDEX 


; OCCURS | integer-l TO] integer-2 TIMES 
[ DEPENDING ON data-name-3 ] 


ASCENDING 
KEY IS data-name-4 [,data-name-5] ...]... 


DESCENDING 


[ INDEXED BY index-name-! {, index-name-2] ... ] 


LEADING 
[ SIGN IS] [ SEPARATE CHARACTER ] 


TRAILING 


ae ies 71 


SYNC RIGHT | 


JUSTIFIED 
RIGHT 
JUST 


- BLANK WHEN ZERO ] 
; VALUE IS literal ‘ , 
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Format 2: 


THROUGH 
66 data-name-!; RENAMES data-name-2 THRU data-name-3 


Format 3: 


VALUE IS i THROUGH % 
; ition-ni : literal- iteral-2 
88 condition-name VALUES ARE itera THRU 


THROUGH 
, literal-3 THRU jiteral-4 |. 


eR RA 


Syntax Rules: 
1. The level-number in Format 1 may be any number from 01 through 49 or 77. 
2. The clauses may be written in any order with two exceptions: the data-name-1 or FILLER 
clause must immediately follow the level-number; the REDEFINES clause, when used, must im- 


_ Mediately follow the data-name-1 clause. 


3. The PICTURE clause must be specified for every elementary item except an index data item, 
in which case, use of this clause is prohibited. 


4. The words THRU and THROUGH are equivalent. 
General Rules: | | 


1. The SYNCHRONIZED, PICTURE, JUSTIFIED, and BLANK WHEN ZERO clauses must not 
be specified except for an elementary data item. 
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2. Format 3 is used for each condition-name. Each condition-name requires a separate entry with 
level-number 88. Format 3 contains the name of the condition and the value, values, or range 
of values associated with the condition-name. The condition-name entries for a particular condi- 
tional variable must follow the entry describing the item with which the condition-name is asso- 
ciated. A condition-name can be associated with any data description entry which contains a 
level-number except the following: 


a. Another condition-name. 


b. A level 66 item. 


2) 


. A group item containing items for which USAGE (other than USAGE IS DISPLAY) is 
specified either explicitly or implicity. 


d. An index data item (Refer to the USAGE IS INDEX clause in this section). 
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BLANK WHEN ZERO 
The BLANK WHEN ZERO clause permits the blanking of an item when the value is zero. 


General Format: 


| BLANK WHEN ZERO | 


Syntax Rules: 


1. The BLANK WHEN ZERO clause can be used only for an elementary item whose PICTURE 
is specified as numeric or numeric edited. Refer to PICTURE in this section. 


General Rules: 


1. When the BLANK WHEN ZERO clause is used, the item will contain spaces if the value of 
the item is zero. 


2. When the BLANK WHEN ZERO ets is used for an item whose PICTURE is numeric, the 
category of the item is considered to be numeric edited. 
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A data-name specifies the name of the data being described. The word FILLER specifies an elementary 
item of the logical record that cannot be referred to explicitly. 


General Format: 


{ data-name \ 


FILLER 


Syntax Rules: 


1. In the FILE, WORKING-STORAGE, COMMUNICATION, and LINKAGE SECTIONS, a 
data-name or the key word FILLER must be the first word following the level-number in each 


data description entry. 


General Rules: 


1. The key word FILLER may be used to name an elementary item in a record. Under no circum- 
stances can a FILLER item be referred to explicitly. However, the key word FILLER may be 
used as a conditional variable because such use does not require explicit reference to the 


FILLER item, but to its value. 
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JUSTIFIED 


The JUSTIFIED clause specifies nonstandard positioning of data within a receiving data item. 


General Format: 


JUSTIFIED 


RIGHT 
JUST 


Syntax Rules: 
1. The JUSTIFIED clause can be specified only at the elementary item level. 
2. JUST is an abbreviation for JUSTIFIED. 


3. The JUSTIFIED clause cannot be specified for any data item described as numeric or for which 
editing is specified. 


General Rules: 


1. When a receiving data item is described with the JUSTIFIED clause and the sending data item 
is larger than the receiving data item, the leftmost characters are truncated. 


Example: 
Sending Receiving 


ABCDEFG  CDEFG 
pic x7) LLLLI TIL  picxs) 


When the receiving data item is described with the JUSTIFIED clause and it is larger than the sending 
data item, the data is aligned at the rightmost character position in the data item with space fill for 
the leftmost character positions. 


Example: 
Sending Receiving 


ABCDE ABCDE 
picx(s) LILI | | PIC X(7) 


2. When the JUSTIFIED clause is omitted, the standard rules for aligning data within an elemen- 
tary item apply. Refer to Standard Alignment Rules in section 2. 
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The level-number shows the hierarchy of data within a logical record. In addition, it is used to identify 
entries for working storage items, linkage items, condition-names, and the RENAMES clause. 


General Format: 


ra 


Syntax Rules: 
1. A Jevel-number is required as the first element in each data description entry. 


2. Data description entries subordinate to an FD, SD, or CD entry must have level-numbers with 
the values 01 through 49, 66 or 88. Refer to the FD, SD, and CD file descriptions in the 
paragraphs entitled File Description Structure, Sort-Merge File Description Structure, and Com- 
munication Description Structure in this section. 


3. Data description entries in the WORKING-STORAGE SECTION and LINKAGE SECTION 
must have level-numbers with the values 01 through 49, 66, 77 or 88. 


General Rules: 


1. The level-number 01 identifies the first entry in each record description. Less inclusive groupings 
are given higher numbers (not necessarily successive) up to a limit of 49. 


2. Special level-numbers have been assigned to certain entries where there is no real concept of 
level: 


a. Level-number 77 is assigned to identify noncontiguous working storage data items, and 
noncontiguous linkage data items, and can be used only as described by Format | of the 
data description structure. 


b. Level-number 66 is assigned to identify RENAMES entries and can be used only as de- 
scribed in Format 2 of the data description structure. 


c. Level-number 88 is assigned to entries which define condition-names associated with a con- 
ditional variable and can be used only as described in Format 3 of the data description 
structure. 


3. Multiple level 01 entries subordinate to any given level indicator represent implicit redefinitions 
of the same area. 
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Examples: 


The following is an example of a record layout which corresponds to figure 6-3 showing a record de- 
scription and the use of level numbers. 


STUDENT RECORD 
STUDENT NO. NAME GRADE| BIRTH DATE 


mth day yr 
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Burroughs COBOL CODING FORM 
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OCCURS 


The OCCURS clause eliminates the need for separate entries for repeated data items and supplies infor- 
mation required for the application of subscripts or indices. 


General Format: 


Format 1: 


OCCURS integer-2 TIMES 


{ ASCENDING 
KEY IS data-name-2 [, data-name-3] ...] ... 
l DESCENDING 


{ INDEXED BY index-name-1 [, index-name-2] ... ] 
Format 2: 


OCCURS integer-1 TO integer-2 TIMES DEPENDING ON data-name-l 
( ASCENDING 

| KEY IS data-name-2 [ , data-name-3] ... 
DESCENDING 


{ INDEXED BY index-name-1 [, index-name-2] ... ] 


Syntax Rules: 


1. When both integer-1 and integer-2 are used, the value of integer-1 must be less than the value 
of integer-2. 


2. The data description of data-name-1 must describe a positive integer and, therefore, cannot be 
zero. 


3. Data-name-1, data-name-2, data-name-3, ... may be qualified. 


4. Data-name-2 must either be the name of the entry containing the OCCURS clause or the name 
of an entry subordinate to the entry containing the OCCURS clause. 


5. Data-name-3, and so forth, must be the name of an entry subordinate to the group item which 
is the subject of this entry. . 


6. An INDEXED BY phrase is required if the subject of this entry, or an entry subordinate to 
this entry, is to be referred to by indexing. 
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7. A data description entry that contains Format 2 of the OCCURS clause may only be followed, 
within that record description, by data description entries which are subordinate to it. 
8. The OCCURS clause cannot be specified in a data description entry that: 
a. Has an Ol, 66, 77, or 88 level-number. 


b. Describes an item whose size is variable. The size of an item is variable if the data descrip- 
tion of any subordinate item contains Format 2 of the OCCURS clause. 


9. In Format 2, the data item defined by data-name-1 must not occupy a character position within 
the range of the first character position defined by the data description entry containing the 


OCCURS clause and the last character position defined by the record description entry contain- 
ing that OCCURS clause. 


10. If data-name-2 is not the subject of this entry, then: 


a. All of the items identified by the data-names in the KEY IS phrase must be within the 
group item which is the subject of this entry. 


b. Items identified by the data-name in the KEY IS phrase must not contain an OCCURS 
clause. 


c. There must not be any entry that contains an OCCURS clause between the items identified 
by the data-names in the KEY IS phrase and the subject of this entry. 


11. Index-name-1, index-name-2, ... must be unique words within the program. ; 
12. Integer-2 in Format 1 and integer-! in Format 2 cannot be zero. 
General Rules: 

1. The OCCURS clause is used in defining tables and other homogeneous sets of repeated data 
items. Whenever the OCCURS clause is used, the data-name which is the subject of this entry 
must be either subscripted or indexed whenever it is referred to in a statement other than 
SEARCH or USE FOR DEBUGGING. Further, if the data-name associated with the OCCURS 
clause is the name of a group item, then all data-names belonging to the group must be sub- 
scripted or indexed when used as operands, except as the object of a REDEFINES clause. Refer 
to Subscripting, Indexing, and Identifier in section 2. 


2. Except for the OCCURS clause, all data description clauses associated with an item whose de- 
scription includes an OCCURS clause apply to each occurrence of the item described. 


3. The number of occurrences of the subject entry is defined as follows: 


a. In Format 1, the value of integer-2 represents the exact number of occurrences. 
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b. In Format 2, the current value of the data item referenced by data-name-1 represents the 
number of occurrences. 


Format 2 specifies that the data-name associated with the OCCURS clause has a variable 
number of occurrences. The value of integer-2 represents the maximum number of occur- 
rences and the value of integer-1 represents the minimum number of occurrences. This does 
not imply that the length of the subject of the entry is variable, but that the number of 
occurrences is variable. When the OCCURS clause is subordinate to an 01 level-number 
in the File Description of a file, the RECORD CONTAINS <integer-3> to <integer-4> 
clause indicates the minimum and maximum number of characters for the variable length 
records. 


When a table element is referenced, the value of data-name-1 must fall within the range 
integer-1 through integer-2, inclusive. If the value of data-name-1 is outside this range, the 
execution of the program is terminated. The value of data-name-1 is used to determine 
the last table element that may be referenced. When the value of data-name-1 is less than 
integer-2, the data items whose occurrence’ numbers exceed the value of data-name-1 are 
inaccessible. Reducing the value of the data item referenced by data-name-1! has no effect 
upon the contents of data items whose occurrence numbers now exceed the value of the 
data item referenced by data-name-1. 


4. When a group item that has a subordinate entry that specifies Format 2 of the OCCURS clause 
is referenced, only that part of the table area that is specified by the value of data-name-1! is 
used in the operation. 


5. The KEY IS phrase is used to indicate that the repeated data is arranged in ascending or de- 
scending order according to the values contained in data-name-2, data-name-3, and so forth. 
The ascending or descending order is determined according to the rules for comparison of oper- 
ands (refer to Relation Condition in section 7 for the Comparison of Numeric Operands and 
the Comparison of Nonnumeric Operands). The data-names are listed in descending order of 
significance. 


Examples: 


The following data descriptions illustrate the use of an OCCURS clause to provide equivalent data 
mapping with fewer data names. 


O1 DATA-REC. Ol DATA-REC. 
03 AMOUNT-ONE Pic 9(8). 03 AMOUNT PIC 9 (8) 
03 AMOUNT-TWO Pic 9(8). OCCURS 3 TIMES 
03 AMOUNT-THREE Pic 9(8). 
03 DESC-ITEM PIC X(20). 03 DESC-ITEM PIC X(20). 
03 DESC-NO PIC 9(5). 03 \DESC=NO PIC 9(5). 
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This example illustrates a use of the OCCURS clause to provide nested descriptions. A reference to 
ITEM-4 requires the use of three levels of subscripting, for example, ITEM-4 (2, 5, 4). A reference 


to ITEM-3 requires two subscripts, for example, ITEM-3 (I,J). 


O1 TABLE-REC. 


03 ITEM OCCURS 2 TIMES. 
O05 ITEM-1 PIC X(10). 
05 ITEM-2 OCCURS 5 TIMES. 
O07 ITEM-3 PIC X (4). 
O7 ITEM-4& OCCURS 5 TIMES. 
09 ITEM-5 PIC XX, 
09 ITEM-6 PIC 99, 
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PICTURE 


The PICTURE clause describes the general characteristics and editing requirements of an elementary 
item. 


General Format: 


PICTURE 


IS character-string 


PIC 


Syntax Rules: 
1. A PICTURE clause can be specified only at the elementary item level. 
2. A character-string consists of certain allowable combinations of characters in the COBOL74 
character set used as symbols. The allowable combinations determine the category of the 
elementary item. 


3. The maximum number of characters allowed in the character-string is 30. 


4. The PICTURE clause must appear in every elementary item except those items whose USAGE 
is declared as INDEX. 


5. PIC is an abbreviation for PICTURE. 


6. The asterisk, when used as the zero suppression symbol, and the clause BLANK WHEN ZERO 
may not appear in the same entry. 


General Rules: 


1. There are five categories of data that can be described with a PICTURE clause: alphabetic, 
numeric, alphanumeric, alphanumeric edited, and numeric edited. 


2. To define an item as alphabetic: 
a. The PICTURE character-string can only contain the symbols 'A’, 'B’. 


b. The item contents, when represented in standard data format, must be any combination 
of the 26 letters of the English alphabet and the space from the COBOL74 character set. 


3. To define an item as numeric: 
a. The PICTURE character-string can only contain the symbols ’9’, ’P’, 'S’, and 'V’. The 


number of digit positions that can be described by the PICTURE charactér-string must 
range from 1 to 18 inclusive. 
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b. If unsigned, the item contents, when represented in standard data format, must be a com- 
bination of the numerals ‘0’, ‘1’, ‘2’, ‘3’, '4', '5’, '6’, '7', ‘8’, and ‘9’; if signed, 
the item may also contain a ‘+’, '-’, or other representation of an operational sign. Refer 
to ghe SIGN clause in this section. 


, 
4. To define an item as alphanumeric: 


a. The PICTURE character-string is restricted to certain combinations of the symbols ‘A’, 
'X', '9', and the item is treated as if the character-string contained all X's. A PICTURE 
character-string which contains all A's or all 9’s does not define an alphanumeric item. 


b. The item contents, when represented in standard data format, are allowable characters in 
the B_ character set. 


5. To define an item as alphanumeric edited: 


a. The PICTURE character- -string is restricted to certain combinations of the following sym- | 
bols: ‘A’, 'X', '9', 'B', ‘0’, and ay age 


1) The character-string must contain at least one 'B’ and at least one ’X’ or at least one 
‘0’ (zero) and at least one ‘'X’‘ or at least one ’/' (stroke) and: at least. one 'X’. 


2) The character-string must contain at least one ‘0! (zero) and at least one ’A’ or at 
least one ‘'/’ (stroke) and at least one ‘A’. 


b. The contents, when represented in standard data format, are allowable characters in the 
computer character set. 


6. To define an item as numeric edited: 


a. The PICTURE character-string is restricted to certain combinations of the symbols ‘B’, 
1 aiae A) ae ae ae ie Sas "QO", 5.9 ae pe Rae eae ie ee fat. "CR", "DB", and the currency 
symbol ($). The allowable combinations are determined from the order of precedence of 
symbols and the editing rules. 


1) The number of digit positions that can be represented in the PICTURE character-string 
must range from 1 to 18 inclusive. 

2) The character-string must contain at least one '0', 'B’, '/’, 'Z', '*', '+', ',’, °.’, 
'-', ‘CR’, 'DB’, or currency symbol. 


b. The contents of the character positions of these symbols that are allowed to represent a 
digit in standard data format must be one of the numerals. 


7. The size of an elementary item, where size means the number of character positions occupied 
by the elementary item in standard data format, is determined by the number of allowable sym- 
bols that represent character positions. An integer which is enclosed in parentheses following 
the symbols: "A", Pen i, Se "Q" Epes Nels saa Be : ae '9Q’ : t + me cers or '$! indicates 
the number of consecutive occurrences of the symbol. The following symbols may appear only 
once in a given PICTURE: “S"”, "“V"”, ’.’, 'CR’, and ‘DB’. 


> 
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8. The functions of the symbols used to describe an elementary item are explained as follows: 


MAK? 
Each letter ‘A’ in the character-string represents a character position which can contain 
only a letter of the alphabet or a space. 


'B’ 
Each letter "B” in the character-string represents a character position into which the space 
character will be inserted. 


‘p’ 
Each letter 'P’ indicates an assumed decimal scaling position and is used to specify the lo- 
cation of an assumed decimal point when the point is not within the number that appears 
in the data item. The scaling position character 'P’ is not counted in the size of the data 
item. Scaling position characters are counted in determining the maximum number of digit 
positions (18) in numeric edited items or numeric items. The scaling position character P 
can appear only to the left or right as a continuous string of P’s within a PICTURE de- 
scription; since the scaling position character P implies an assumed decimal point (to the 
left if P’s are leftmost PICTURE characters and to the right if 'P’s are rightmost PIC- 


TURE characters), the assumed decimal point symbol 'V’ is redundant as either the left-’ 


most or rightmost character within such a PICTURE description. The character ‘P’ and 
the insertion character ‘.’ (period) cannot both occur in the same PICTURE character- 
string. If, in any operation involving conversion of data from one form of internal represen- 
tation to another, the data item being converted is described with the PICTURE character 
‘P’, each digit position described by a 'P’ is considered to contain the value zero, and 
the size of the data item is considered to include the digit positions so described. 


The letter ‘S’ is used in a character-string to indicate the presence of an operational sign 
in the internal representation of a numeric data item. It must be the first (leftmost) charac- 
ter in the charaeter-string and may be used in the PICTURE character-string of any data 
item whose USAGE is DISPLAY or COMPUTATIONAL. The SIGN clause may be used 
to specify the exact representation and position of the operational sign. Refer to the SIGN 
clause in this section for additional information. 

When an operational sign is specified for a DISPLAY data item and a SIGN clause is not 
specified, the sign is maintained and expected in the zone of the most significant (leftmost) 
character. When the data item is the receiving field in an arithmetic statement and since 
the native character set is EBCDIC, the four zone bits are set to binary 1101 for negative 
values and to binary 1100 for positive values. When the data item is used in an algebraic 
comparison or operation to supply an algebraic value, only the most significant zone being 
a binary 1101 will cause the value of the data item to be considered negative. Only the zone 
values 1100 and 1101 will qualify the data item as being NUMERIC if tested by the NU- 
MERIC class condition. For DISPLAY data items, the presence or absence of an operation- 
al sign has no effect upon the amount of storage required to contain the data item. 
When an operational sign is specified for a COMPUTATIONAL data item and a SIGN 
clause is not specified, the sign is maintained and expected as a leading separate 4-bit char- 
acter to the left of the most significant digit position. Since the native character set is 
EBCDIC, the binary pattern of the sign character is 1101 for negative values and 1100 for 
positive values. Like DISPLAY data items, only these values allow the item to be considered 
NUMERIC in the class condition test. Unlike DISPLAY data items, the specification of an 
operational sign for COMPUTATIONAL data items increases by one the number of 4-bit 
character positions occupied by the data item in storage. 
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an 1s 
The letter ’V’ is used in a character-string to indicate the location of the assumed decimal 
point and may only appear once in a character-string. The 'V’ does not represent a charac- 
ter position and is not counted in the size of the elementary item. When the assumed 
decimal point is to the right of the rightmost symbol in the string, the 'V’ is redundant. 


x 
Each letter 'X’ in the character-string is used to represent a character position which con- 
tains any allowable character in the character set. 


/ Z, / 
Each letter ‘Z' in a character-string may only be used to represent the leftmost leading nu- 
meric character positions which are replaced by a space character when the contents of that 
character position are zero. Each 'Z’ is counted in the size of the item. 


'g! 
Each numeral ‘9’ in the character-string represents a character position which contains a 
numeral and is counted in the size of the item. 


'Q!. 
Each numeral ‘0’ in the character-string represents a character position into which the nu- 
meral zero is inserted. The ‘0’ is counted in the size of the item. 


ft 
Each stroke '/’ in the character-string represents a character position into which the stroke 
character is inserted. The ‘/’ is counted in the size of the item. 


/ 7 

’ 
Each comma ’,’ in the character-string represents a character position into which the char- 
acter ',’ is inserted. This character position is counted in the size of the item. The insertion 


character ',’ must not be the last character in the PICTURE character-string. 

When the character period ’.’ appears in the character-string it is an editing symbol which 
represents the decimal point for alignment purposes and in addition, represents a character 
position into which the character ‘'.’ is inserted. The character ’.’ is counted in the size 
of the item. For a given program the functions of the period and comma are exchanged 
-if the clause DECIMAL-POINT IS COMMA is stated in the SPECIAL-NAMES paragraph. 
In this exchange the rules for the period apply to the comma and the rules for the comma 


apply to the period when appearing in a PICTURE clause. The insertion character '.’ must 
not be the last character in the PICTURE character-string. 


/ + / / .!/ / CR’ ? DB / 
These symbols are used as editing sign control symbols and when used, represent the charac- 
ter position into which the editing sign control symbol will be placed. The symbols are mu- 
tually exclusive in any one character-string and each character used in the symbol is counted 
in determining the size of the data item. 
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Ie! 


Each asterisk '*’ in the character-string represents a leading numeric character position into 
which an asterisk is placed when the contents of that position are zero. Each '*’ is counted 
in the size of the item. 


/ t 


cS 
The currency symbol '$' in the character-string represents a character position into which 
a currency symbol is placed. The currency symbol in a character-string is represented by 
either the dollar sign ‘$’ or by the single character specified in the CURRENCY SIGN 
clause in the SPECIAL-NAMES paragraph. The currency symbol is counted in the size of 
the item. 

Editing Rules: 


1. There are two general methods of performing editing in the PICTURE clause, either by inser- 
tion or by suppression and replacement. The four types of insertion editing available are: 


a. Simple insertion 
b. Special insertion 
- ¢, Fixed insertion 
d. Floating insertion 
There are two types of suppression and replacement editing: 
a. Zero suppression and replacement with spaces 
b. Zero suppression and replacement with asterisks 
2. The type of editing which may be performed upon an item is dependent upon the category to 


which the item belongs. Table 6-1 specifies which type of editing may be performed upon a 
given category: 


Table 6-1. Editing for Each Item Category 


Category Type of Editing 
Alphabetic Simple insertion ‘B’ only 
Numeric None 
Alphanumeric None 
Alphanumeric Edited Simple insertion ‘0', 'B’, and ‘/' 
Numeric Edited All, subject to Editing Rule 3 


3. Floating insertion, and editing by zero suppression and replacement, are mutually exclusive in 
a PICTURE clause. Only one type of replacement may be used with zero suppression in a PIC- 
TURE clause. 
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4. Simple Insertion Editing. The ',’ (comma), 'B’ (space), '0’ (zero), and '/’ (stroke) are used 


7. Floating Insertion Editing. The currency symbol and editing sign control symbols ' +’ or 


6-40 


. Fixed Insertion Editing. The currency symbol and the editing sign control symbols, ’' +’, 


as the insertion characters. The insertion characters are counted in the size of the item and rep- 
resent the position in the item into which the character is inserted. 


Any character which is not a defined PICTURE character may be used as a simple insertion 
character. Precedence rules for these characters and rules for determining category are the same 
as those for the simple insertion character "0". 


. Special Insertion Editing. The '.’ (period) is used as the insertion character. In addition to be- 


ing an insertion character it also represents the decimal point for alignment purposes. The inser- 
tion character, used for the actual decimal point, is counted in the size of the item. The use 
of the assumed decimal point, represented by the symbol 'V’ and the actual decimal point, 
represented by the insertion character, in the same PICTURE character-string is disallowed. The 
result of special insertion editing is the appearance of the insertion character in the item in the 
same position as shown in the character-string. 


Yof 
> 


‘CR’, 'DB’, are the insertion characters. Only one currency symbol and only one of the edit- 
ing sign control symbols can be used in a given PICTURE character-string. The symbols ‘CR’ 
or ‘DB’ always represent two character positions in determining the size of the item and must 
represent the rightmost character positions counted in the size of the item. The symbol ‘+’ 
or ‘'-’, when used, must be either the leftmost or rightmost character position to be counted 
in the size of the item. The currency symbol must be the leftmost character position to be 
counted in the size of the item except that it can be preceded by either a '’+’ or a ‘-’ symbol. 
Fixed insertion editing results in the insertion character occupying the same character position 
in the edited item as in the PICTURE character-string. Editing sign control symbols produce 
the results shown in table 6-2 depending upon the value of the data item. 


Table 6-2. Editing of Sign Control Symbols 


Result 


Editing Symbol in Data Item Data Item 
PICTURE Character-String Positive or Zero Negative 


+ 
space 
2 spaces 
2 spaces 


tof 


are the floating insertion characters and are mutually exclusive in a given PICTURE character- 
string. 
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Floating insertion editing is indicated in a PICTURE character-string by using a string of at 
least two of the floating insertion characters. This string of floating insertion characters may 
contain any of the fixed insertion symbols or have fixed insertion characters immediately to 
the right. These simple insertion characters are part of the floating string. 


The leftmost character of the floating insertion string represents the leftmost limit of the float- 
ing symbol in the data item. The rightmost character of the floating string represents the right- 
most limit of the floating symbols in the data item. 


The second floating character from the left represents the leftmost limit of the numeric data 
that can be stored in the data item. Nonzero numeric data may replace all the characters at 
or to the right of this limit. 


In a PICTURE character-string, there are only two ways of representing floating insertion edit- 
ing. One is to represent any or all of the leading numeric character positions on the left of 
the decimal point by the insertion character. The other is to represent all of the numeric charac- 
ter positions in the PICTURE character-string by the insertion character. 


If the insertion characters are only to the left of the decimal point in the PICTURE character- 
string, the result is that a single floating insertion character is placed into the character position 
immediately preceding either the decimal point or the first nonzero digit in the data represented 
by the insertion symbol string, whichever is farther to the left in the PICTURE character-string. 
The character positions preceding the insertion character are replaced with spaces. 


If all numeric character positions in the PICTURE character-string are represented by the inser- 
tion character, the result depends upon the value of the data. If the value is zero, the entire 
data item will contain spaces. If the value is not zero, the result is the same as when the inser- 
tion character is only to the left of the decimal point. 


To avoid truncation, the minimum size of the PICTURE character-string for the receiving data 
item must be the number of characters in the sending data item, plus the number of nonfloat- 
ing insertion characters being edited into the receiving data item, plus one for the floating inser- 
tion character. 


8. Zero Suppression Editing. The suppression of leading zeroes in numeric character positions is 
indicated by the use of the alphabetic character 'Z' or the character '*' (asterisk) as suppres- 
sion symbols in a PICTURE character-string. These symbols are mutually exclusive in a given 
PICTURE character-string. Each suppression symbol is counted in determining the size of the 
item. If 'Z’ is used the replacement character is the space, and if the asterisk is used the re- 
placement character will be ‘'*’. 


Zero suppression and replacement is indicated in a PICTURE character-string by using a string 
of one or more of the allowable symbols to represent leading numeric character positions which 
are to be replaced when the associated character position in the data contains a zero. Any of 
the simple insertion characters embedded in the string of symbols or to the immediate right 
of this string are part of the string. 


In a PICTURE character-string, there are only two ways of representing zero suppression. One 
is to represent any or all of the leading numeric character positions to the left of the decimal 
point by suppression symbols. The other is to represent all of the numeric character positions 
in the PICTURE character-string by suppression symbols. 
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If the suppression symbols appear only to the left of the decimal point, any leading zero in 
the data which corresponds to a symbol in the string is replaced by the replacement character. 
Suppression terminates at the first nonzero digit in the data represented by the suppression sym- 
bol string or at the decimal point, whichever is encountered first. 


If all numeric character positions in the PICTURE character-string are represented by suppres- 
sion symbols and the value of the data is not zero, the result is the same as if the suppression 
characters were only to the left of the decimal point. If the value is zero and the suppression 
symbol is 'Z', the entire data item will be spaces. If the value is zero and the suppression 
symbol '*’, the data item will be all asterisks except for the actual decimal point. 


The leftmost suppression symbol ('Z' or '*') in the PICTURE character-string can only be 
preceded by the currency symbol or the sign symbols ('+' or ‘-'). 


9. The symbols '+', ‘-’, '*', 'Z', and '$’, when used as floating replacement characters, are 


mutually exclusive within a given character-string. 


Precedence Rules 


Figure 6-4 shows the order of precedence when using characters as symbols in a character-string. An 
_ 'X’ at an intersection indicates that the symbol(s) at the top of the column may precede, in a given 

character-string, the symbol(s) .at the left of the row. Arguments appearing in braces indicate that the 
symbols are mutually exclusive. The currency symbol is indicated by the symbol ‘cs’. 


, 


cS 
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First . 
Non-Floating Floating 
Symbol Insertion Symbols : Insertion Symbols Other Symbols 
Second B 0 ; 
Symbol 


x | & 
chemise 
x x 


Insertion Symbols 


jaa] 
= 
ro) 
8 
uP 
& 
c=) 
2 


x | x x 
xX | X 
xX | X 
a xX x 
: 
xX | X 
a 
6 
Pal x x 
3 
£ 
xX | X 
ix | x 
9 x | X 
. Xx 
» |X 
2] s 
a 
P xX | X 
P 
G12333 


Figure 6-4. PICTURE Character Precedence Chart 
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Nonfloating insertion symbols ‘+’ and ’-', floating insertion symbols "Z", "*", "+", "-", and “cs”, 
and the other symbol ”P” appear twice in the PICTURE character precedence chart, figure 6-4. The 
leftmost column and uppermost row for each symbol represent use on the left of the decimal point 
position. The second appearance of the symbol in the chart represents use to the right of the decimal 
point position. . 

Examples: 


Table 6-3 demonstrates the editing function of the PICTURE Clause. 


Table 6-3. Editing Application of the PICTURE Clause 


Editing 
Picture Data Picture Edited Data 


9 12345 $ZZ,229.99 $12,345.00 
v9 12345 5995909699 $0.12 
v9 12345 $77,229.99 § 0.42 

9 00000 $$$,5$9.99 $0.00 

9 12345 $2ZZ,ZZ9.99 S 123.45 

s, 00000 999,595.33 

9 01234 Sek 49,99 $*1,234.00 

9 00000 Sx * ‘ KK wk KRARREK RK 

9 00123 Sax ‘ **Q 99 Suir | 23.00 

9 00012 $22,229.99 § 0.12 

9 12345 939999699 $123.45 

9 00001 $ZZ,ZZZ.99 S 0] 

9 12345 OSes 200809 $12,345.00 

9 00000 SZZ 222422 

9 00001 $$$,$3$9.$$ $.01 
$9 (+) 12345 ZZZZ9 .99+ 12345. 00+ 
$9 (-) 00123 3399997..99 -00123.00 

9 12345 999.00 123.00 

9 (-) 12345 22229, 99> 12345.00- 

9 (+) 12345 Z22Z29..99- 12345.00 

S) 12345 BBB99.99 45.00 

(-) 12345 -ZZZZ9.99 -12345.00 

(-) 12345 3$$$$$.99CR $12345.00CR 

(2). 12345" OF Sees .99 -12.34 

(+) 12345 S$$99$.99CR $12345.00 
12345 999. BB 123. 
12345 00999.00 00345.00 
12345 PPP99 00045 
12345 999PP 12300 
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REDEFINES 


The REDEFINES clause allows the same computer storage area to be described by different data de- 


entries. 


General Format: 


| level-number data-name-!; 


REDEFINES data-name-2 


NOTE 
Level-number, data-name-1 and the semicolon are shown in the general for- 
to improve clarity. Level-number and data-name-1 are not part of the 
REDEFINES clause. 


Syntax Rules: 


fs 


as 


The REDEFINES clause, when specified, must immediately follow data-name-1. 


The level-numbers of data-name-1 and data-name-2 must be identical, but must not be 66 or 
88. 


This clause must not be used in level 01 entries in the FILE SECTION. Refer to the DATA 
RECORDS clause, General Rule 2, in this section. 


The REDEFINES clause must not be used in level 01 entries in the COMMUNICATION SEC- 


The data description entry for data-name-2 cannot contain a REDEFINES clause. Data-name- 
2 may be subordinate to an entry which contains a REDEFINES clause. The data description 
entry for data-name-2 cannot contain an OCCURS clause. However, ddta-name-2 may be sub- 
to an item whose data description entry contains an OCCURS clause. In this case, 

the reference to data-name-2 in the REDEFINES clause may not be subscripted or indexed. Nei- 
the original definition nor the redefinition can include an item whose size is variable 

as defined in the OCCURS clause. Refer to the OCCURS clause in this section. 


. No entry having a level-number numerically lower than the level-number of data-name-2 and 


data-name-1 may occur between the data description entries-of data-name-2 and data-name-1. 
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General Rules: 


1. Redefinition starts at data-name-2 and ends when a level-number less than or equal to that of 
data-name-2 is encountered. 


2. The REDEFINES clause specifies the redefinition of a storage area, not of the data items occu- 
pying the area. Therefore, the usage of data-name-l1 need not be the same as the usage of data- 
name-2, except that DISPLAY or group data items may not redefine elementary COMPUTA- 
TIONAL or INDEX data items which do not begin on a byte boundary. When _ redefinition 
occurs at other than the 01 level, the amount of storage allocated for data-name-2 must be the 
same as the amount of storage implied by the declared size and usage of data-name-l, with the 
following exceptions: 


a. A DISPLAY or group data item may redefine an elementary COMPUTATIONAL data 
item that begins, but does not end, on a byte boundary if the difference in size can be 
accounted for by the generation of a 4-bit filler so that the redefining item ends on a byte 
boundary. 


b. A DISPLAY or group data item may be redefined by an elementary COMPUTATIONAL 
data item even though the actual size (including sign position, if described) is one 4-bit 
character less than the number of 4-bit characters in the storage area. The redefining item 
is aligned to begin on a byte boundary and end at the middle of the last byte of storage. 


3. Multiple redefinitions of the same character positions are permitted. The entries giving the new 
descriptions of the character positions must follow the entries defining the area being redefined, 
without intervening entries that define new character positions. Multiple redefinitions of the 
same character positions must all use the data-name of the entry that originally defines the area. 


4. The entries giving the new description of the character positions must not contain any VALUE 
clauses, except in condition-name entries. 


5. Multiple 01 level entries subordinate to any given level indicator represent ipHels redefinitions 
of the same area. 


Example: 
The following example illustrates the uses of the REDEFINES clause. 


O1 WHOLE-ITEM. 


03 PART-ONE PIC X (40). 

03 PART-TWO REDEFINES PART-ONE. 
O5 A PIC X(20). 
05 8B PIC X(20). 


O5 B2 REDEFINES B_ PIC 9(20). 
03 PART-THREE REDEFINES PART-ONE P 
03 PART-FOUR REDEFINES PART-ONE P 
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RENAMES 


The RENAMES clause permits alternative, possibly overlapping, groupings of elementary items. 


General Format: 


THROUGH 


66 data- -1; RENAMES data- -2 
ata-name-1 ata-name-2 | | THRU 


data-name-3 


NOTE 
Level-number 66, data-name-1, and the semicolon are shown in the general 
format to improve clarity. Level-number and data-name-1 are not part of the 
RENAMES clause. 


Syntax Rules: 


1. 


All RENAMES entries referring to data items within a given logical record must immediately 
follow the last data description entry of the associated record description entry. 


. Data-name-2 and data-name-3 must be names of elementary items or groups of elementary 


items in the same logical record, and cannot be the same data-name. A 66 level entry cannot 
rename another 66 level entry nor can it rename a 77, 88, or O1 level entry. 


. Data-name-1 cannot be used as a qualifier, and can only be qualified by the names of the asso- 


level 01, FD, or SD entries. Neither data-name-2 nor data-name-3 may have an OC- 
clause in the data description entry nor be subordinate to an item that has an OC- 
clause in the data desgription entry. Refer to the OCCURS clause in this section. 


. The beginning of the area described by data-name-3 must not be to the left of the beginning 


of the area described by data-name-2. The end of the area described by data-name-3 must be 
to the right of the end of the area described by data-name-2. Data-name-3, therefore, cannot 
be subordinate to data-name-2. 


. Data-name-2 and data-name-3 may be qualified. 
. The words THRU and THROUGH are equivalent. 


. None of the items within the range, including data-name-2 and data-name-3, if specified, can 


be an item whose size is variable as defined in the OCCURS clause. 


~ General Rules: 


1. 


One or more RENAMES entries can be written for a logical record. 


2. When data-name-3 is specified, data-name-1 is a group item which includes all elementary items 


starting with data-name-2 (if data-name-2 is an elementary item) or the first elementary item 
in data-name-2 (if data-name-2 is a group item), and concluding with data-name-3 (if data- 
name-3 is an elementary item) or the last elementary item in data-name-3 (if data-name-3 is 
a group item). 
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When data-name-3 is specified: If data-name-2 is an elementary COMPUTATIONAL or IN- 
data item, it must be positioned to begin at an 8-bit character boundary; if data-name- 

3 is an elementary COMPUTATIONAL or INDEX data item, it must be positioned to end 
at the end of an 8-bit character boundary. 


3. When data-name-3 is not specified, data-name-2 can be either a group or an elementary item. 
When data-name-2 is a group item, data-name-1! is treated as a group item, and when data- 
name-2 is an elementary item, data-name-1 is treated as an elementary item. 


Data-name-! assumes all the characteristics of data-name-2 as determined from the data de- 
of data-name-2, including usage, justification, synchronization, editing require- 
and so on. 


Examples: 


The following are examples of the RENAMES clause. 


O1 PART-ONE. 
03 SUB-PART-ONE. 


O5 SP-1 . PIC X. 
05 SPp-2 PIC X(5). 
05 SP-3 PIC XXX. 
05 sp-4 PIC X. 
03 SUB-PART-TWO. 

05 SP2-1 PEC XX. 

05 SP2-2 PIC X(10). 
05 SP2-3 PIC XXX. 


SUB-PT-THREE RENAMES SUB-PART-ONE. 
SUB-PT-FOUR RENAMES SUB-PART-ONE. 
SUB-PT-5 RENAMES SP-2 THRU SP-4. 
SUB-PT-6 RENAMES SP-3 THROUGH SP2-2. 
SUB-PT-7 RENAMES SP-1 THRU SUB-PART-TWO. 


lepton toaventon) 
HX 
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“SIGN 


The SIGN clause specifies the position and the mode of representation of the operational sign when 
necessary to describe these properties explicitly. 


General Format: 


[SIGN IS } \ HEADING [ SEPARATE CHARACTER ] 


TRAILING 


Syntax Rules: 


1. The SIGN clause may be specified only for a numeric data description entry whose PICTURE 
contains the character ’S’, or a group item containing at least one such numeric data descrip- 
tion entry. 


2. The numeric data description entries to which the SIGN clause applies must be described as 
usage DISPLAY or COMPUTATIONAL. 


3. At most, one SIGN clause may apply to any given numeric data description entry. 


4. If the CODE-SET clause is specified,.any signed numeric data description entries associated 
with that file description entry must be described with the SIGN IS SEPARATE clause. 


General Rules: 


1. The optional SIGN clause, if present, specifies the position and the mode of representation of 
the operational sign for the numeric data description entry to which it applies, or for each nu- 
meric data description entry subordinate to the group to which it applies. The SIGN clause ap- 
plies only to numeric data description entries whose PICTURE contains the character ‘'S’; the 
'S' indicates the presence of, but neither the representation nor, necessarily, the position of 
the operational sign. 


2. A numeric data description entry whose PICTURE contains the character 'S’, but to which 
no optional SIGN clause applies, has an operational sign which is positioned and represented 
according to the standard default position and representation of operational signs. Refer to the 
PICTURE clause, General Rule 8 (the 'S’ symbol), in this section. 


3. If a SIGN clause, without a SEPARATE CHARACTER phrase, applies to a numeric data de- 
scription entry, then: 


a. If the usage of the data item is DISPLAY, the operational sign is maintained and expected 


as a binary 1100 or 1101 in the zone of the LEADING or TRAILING character, and will 
not cause additional storage to be allocated for the data item. 


1168622 6-49 


B 1000 Systems COBOL74 Language Manual 
Data Division 


SIGN 


b. If the usage of the data item is COMPUTATIONAL, the operational sign is maintained 
and expected as a binary 1100 or 1101 LEADING or TRAILING character, increasing by 
one 4-bit character the amount of storage allocated for the data item above that which 
would be allocated for an unsigned COMPUTATIONAL data item. The presence or ab- 
sence of the SEPARATE CHARACTER phrase has no effect upon the position or repre- 
sentation of the operational sign for COMPUTATIONAL data items. 


4. If a SIGN clause with a SEPARATE CHARACTER phrase applies to a numeric data descrip- 
tion entry, then: 


a. If the usage of the data item is DISPLAY, the operational sign is maintained and expected 
as a LEADING or TRAILING character separate from, and in addition to, the numeric 
character positions. The operational sign for negative values is the character ”-” and for 
positive values the character ”+”. 


b. If the usage of the data item is COMPUTATIONAL, the rules listed above in General Rule 
3b apply. 


5. Every numeric data description entry whose PICTURE contains the character 'S’ is a signed 
numeric data description entry. If a SIGN clause applies to such an entry and conversion is 
necessary for purposes of computation or comparisons, conversion takes place automatically. 


Examples: 


The following are examples of the SIGN clause. 


WORKING-STORAGE SECTION. 


77. NUMBI PIC S9(11) VALUE ZEROES SIGN IS TRAILING. 
77 NUMB2 PIC $9(6) VALUE ZEROES SIGN !S LEADING. 
O1 GROUP-ITEM SIGN IS LEADING. 

03 ITEM-1 PIC X(15). 

03 ITEM-2 Pic $9(4) COMP 

03 ITEM-3 PIC X(25). 

03 ITEM-4& PIC $9999. 
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SYNCHRONIZED 


The SYNCHRONIZED clause specifies the alignment of an elementary item on the natural boundaries 
of the computer memory. 


General Format: 


| RNCHRONIZED | Re | 


SYNC RIGHT 


Syntax Rules: 
1. This clause may only appear with an elementary item. 
2. SYNC is an abbreviation for SYNCHRONIZED. 
General Rules: 
1. This clause specifies that the subject data item is to be aligned in the computer to a byte bound- 
ary. If the previous data item did not end on a byte boundary an implicit 4-bit FILLER is 
generated. This unused filler digit is included in: 


a. The size of any group item(s) to which the elementary item belongs. 


b. Any redefinition of the previous data item when it is the object of a REDEFINES clause. 
Refer to the REDEFINES and the USAGE clauses in this section. 


2. Neither RIGHT nor LEFT following SYNCHRONIZED has effect on the positioning of the 
data item. RIGHT and LEFT are handled as comment entries. 


3. Whenever a SYNCHRONIZED item is referenced in the source program, the original size of 
the item, as shown in the PICTURE clause, is used in determining any action that depends 
on size, such as justification, truncation, or overflow. 


4. If the data description of an item contains the SYNCHRONIZED clause and an operational 
sign, the sign of the item appears in the normal operational sign position. 


5. When the SYNCHRONIZED clause is specified in a data description entry of a data item that 
also contains an OCCURS clause, or in a data description entry of a data item subordinate 
to a data description entry that contains an OCCURS clause, then: 

a. Each occurrence of the data item is SYNCHRONIZED. 


b. Any implicit FILLER generated for other data items within that same table are generated 
for each occurrence of those data items. 
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The USAGE clause specifies the format of a data item in the computer storage. 


General Format: 


( COMPUTATIONAL 
[USAGE IS} ) COMP 


DISPLAY 
INDEX 


Syntax Rules: 


1. The PICTURE character-string of a COMPUTATIONAL item can contain only '9's, the oper- 
ational sign character 'S’, the implied decimal point character 'V’, and one or more 'P’s. 
Refer to the PICTURE clause in this section. 


2. COMP is an abbreviation for COMPUTATIONAL. 


3. The USAGE clause may be written in any data description entry with a level number other than 
66 or 88. 

4. If the USAGE is written in the data description entry for a group item, it may also be written 
in the data description entry for any subordinate elementary item or group item, but the same 
USAGE must be specified by both entries. Items of different USAGE may appear in the same 
record. 


5. An index data item can be referenced explicitly only in a SEARCH or SET statement, a relation 
condition, the USING phrase of a PROCEDURE DIVISION header, or the USING phrase of 
a CALL statement. 


6. The SYNCHRONIZED, JUSTIFIED, PICTURE, VALUE, and BLANK WHEN ZERO clauses 
cannot be used to describe group or elementary items described with the USAGE IS INDEX 
clause. 

General Rules: 

1. If the USAGE clause is written at a group level, it applies to each elementary item in the group. 

2. This clause specifies the manner in which a data item is represented in the storage of a com- 
puter. It does not affect the use of the data item, although the specifications for some state- 


ments in the PROCEDURE DIVISION may restrict the USAGE clause of the data item. 


DISPLAY data items are represented internally as contiguous 8-bit characters represented in 
the native character set, EBCDIC. 


Elementary COMPUTATIONAL data items are represented internally as contiguous 4-bit char- 
acters or digits. 
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3. A COMPUTATIONAL item is capable of representing a value to be used in computations and 
must be numeric. If a group item is described as COMPUTATIONAL, the elementary items 
in the group are COMPUTATIONAL. The group item is not COMPUTATIONAL (cannot be 
used in computations). 


The group item is considered to be a group data item whose class is alphanumeric and whose 
usage is DISPLAY and may be referenced any place in the syntax acceptable for such an item. 
The size of the group item is considered to be in terms of DISPLAY characters aligned accord- 
ing to the rules for DISPLAY, one character for every two 4-bit characters or digits that form 
a part of it. 


4. The USAGE IS DISPLAY clause indicates that the format of the data is a standard data for- 
mat. : 


5. If the USAGE clause is not specified for an elementary item, or for any group to which the 
item belongs, the usage is implicitly DISPLAY. 


6. Every occurrence of a DISPLAY data item begins and ends on a byte boundary. Within a rec- 
ord description, the declaration of a DISPLAY data item immediately following a COMPUTA- 
TIONAL or INDEX data item that does not end on a byte boundary causes an automatic gen- 
eration of a 4-bit filler between the two items. This filler area between the two data items is 
not included in the size of either item, but is included in the size of all group items to which 
the two items are subordinate. Similarly, if the last item declared within a group item at the 
next lowest hierarchical level is a COMPUTATIONAL or INDEX data item that does not end 
on a byte boundary, an automatic generation of a 4-bit filler occurs. This filler is included in 
the size of the group item. 


7. An elementary item described with the USAGE IS INDEX clause is called an index data item 
and contains a value which must correspond to an occurrence number of a table element. The 
elementary item cannot be a conditional variable. If a group item is described with the USAGE 
IS INDEX clause, the elementary items in the group are all index data items. The group is not 
an index data item and cannot be used in the SEARCH or SET statement. 


The group item is considered to be a group data item whose class is alphanumeric and whose 
usage is DISPLAY and may be referenced any place in the syntax acceptable for such an item. 
The size of the group item is considered to be in terms of DISPLAY characters, four characters 
for each subordinate index data item. 


8. An index data item can be part of a group which is referred to in a MOVE or input-output 
statement, in which case no conversion takes place. 


9. An index data item may contain a signed value. An index data item occupies the same space 


and has the same alignment as an item declared PICTURE S9(7) USAGE IS COMPUTA- 
TIONAL. 
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The VALUE clause defines the value of constants, the initial value of working-storage items, the initial 
value of data items in the COMMUNICATION SECTION, and the values associated with a condition- 
name. 


General Format: 


Format 1: 
| VALUE IS literal | 
Format 2: 


VALUE IS ( THROUGH j} 
literal-1 literal-2 


VALUES ARE | THRU 


( THROUGH 
, literal-3 literal-4 
] THRU 


Syntax Rules: 
1. The words THRU and THROUGH are equivalent. 


2. The VALUE clause cannot be stated for any item whose size is variable. Refer to the OCCURS 
clause in this section. 


3. A signed numeric literal must have an associated signed numeric PICTURE character-string. 


4. All numeric literals in a VALUE clause of an item must have a value which is within the range 
of values indicated by the PICTURE clause, and must not have a value which would require 
truncation of nonzero digits. Nonnumeric literals in a VALUE clause of an item must not ex- 
ceed the size indicated by the PICTURE clause. 


General Rules: 


1. The VALUE clause must not conflict with other clauses in the data description of the item or 
in the data description within the hierarchy of the item. The following rules apply: 


a. If the category of the item is numeric, all literals in the VALUE clause must be numeric. 
If the literal defines the value of a working-storage item, the literal is aligned in the data 
item according to the standard alignment rules. Refer to Standard Alignment Rules in sec- 
tion 2. 
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b. If the category of the item is alphabetic, alphanumeric, alphanumeric edited or numeric 
edited, all literals in the VALUE clause must be nonnumeric literals. The literal is aligned 
in the data item as if the data item had been described as alphanumeric. (Refer to Standard 
Alignment Rules in section 2.) Editing characters in the PICTURE clause are included in 
determining the size of the data item (refer to the PICTURE clause in this section) but 
have no effect on initialization of the data item. Therefore, the VALUE for an edited item 
is presented in an edited form. 


c. Initialization takes place independent of any BLANK WHEN ZERO or JUSTIFIED clause 
that may be specified. 


A. figurative constant may be substituted in both Format 1 and Format 2 wherever a literal is 
specified. 


Condition-Name Rules 


1. 


Data 


In a condition-name entry, the VALUE clause is required. The VALUE clause and the condi- 
tion-name are the only two clauses permitted in the entry. The characteristics of a condition- 
name are implicitly those of the conditional variable. 


. Format 2 can only be used in connection with condition-names. Refer to Condition-Name in 


section 2. Wherever the THRU phrase is used, literal must be less than literal-2, literal-3 less 
than literal-4, and so forth. 


Description Entries Other Than ‘Condition-Names 


. Rules governing the use of the VALUE clause differ with the respective sections of the DATA 


DIVISION: 
a. In the FILE SECTION, the VALUE clause may be used only in condition-name entries. 


b. In the WORKING-STORAGE SECTION and the COMMUNICATION SECTION, the 
VALUE clause must be used in condition-name entries. The VALUE clause may also be 
used to specify the initial value of any other data item, in which case the clause causes 
the item to assume the specified value at the start of the object program. If the VALUE 
clause is not used in an item description, the initial value is undefined. 


c. In the LINKAGE SECTION, the VALUE clause may be used only in condition-name en- 
tries. | 


. The VALUE clause must not be stated in a data description entry that contains an OCCURS 


clause, or in an entry that is subordinate to an entry containing an OCCURS clause. This rule 
does not apply to condition-name entries. Refer to the OCCURS clause in this section. 


. The VALUE clause must not be stated in a data description entry that contains a REDEFINES 


clause, or in an entry that is subordinate to an entry containing a REDEFINES clause. This 
rule does not apply to condition-name entries. 
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If the VALUE clause is used in an entry at the group level, the literal must be a figurative 
constant or a nonnumeric literal, and the group area is initialized without consideration for the 
individual elementary or group items contained within this group. The VALUE clause cannot — 
be stated at the subordinate levels within this group. 


The VALUE clause must not be written for a group containing items for which USAGE (other 
than USAGE IS DISPLAY) is specified either explicitly or implicity. 
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WORKING-STORAGE SECTION 


The WORKING-STORAGE SECTION is optional and is that part of the DATA DIVISION set aside 
for intermediate processing of data. The difference between the WORKING-STORAGE and FILE 
SECTIONS is that the former deals with data that is not associated with an input or output file. All 
clauses which are used in normal input or output record descriptions can be used in a WORKING- 
STORAGE record description. 


WORKING-STORAGE Structure 


Whereas the FILE SECTION is composed of file description (FD or SD) entries.and associated record 
description entries and noncontiguous items, the WORKING-STORAGE SECTION is composed only 
of record description entries and noncontiguous items. The WORKING-STORAGE SECTION begins 
with a section-header and a period, followed by data description entries for noncontiguous WORKING- 
STORAGE items, and/or record description entries for WORKING-STORAGE records. 


Each WORKING-STORAGE SECTION record name and noncontiguous item name must be unique 
since it cannot be qualified. Subordinate data-names need not be unique if they can be made unique 
by qualification. 


General Format: 


WORKING-STORAGE SECTION. 
77 data-name-| ° 
88 condition-name-1 


data-name-n 
data-name-2 
02 data-name-3 


Om 
— 


66 data-name-m RENAMES data-name-3 
01 data-name-4 
02 data-~name-5 
03 data-name-n 
condition-name-2 


Noncontiguous WORKING-STORAGE 


Items in WORKING-STORAGE which have no hierarchical relationship to one another need not be 
grouped into records, provided they do not need to be further subdivided. These items are classified 
and defined as noncontiguous elementary items. Each of these items is defined in a separate data de- 
scription entry which begins with the special level-number 77. 


The following record description clauses are required in each entry: 
Level-number 77 


Data-name 
The PICTURE clause or the USAGE IS INDEX clause. 
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The OCCURS clause is not meaningful on a 77 level item and causes an error at compilation time 
if used. Other data description clauses are optional and can be used to complete the description of 
the item if necessary. 


WORKING-STORAGE Records 


Data elements and constants in WORKING-STORAGE which have a definite hierarchic relationship 
to one another must be grouped into records according to the rules for the formation of record descrip- 
tions. All clauses which are used in normal input or output record descriptions can be used in a 
WORKING-STORAGE description, including REDEFINES, OCCURS, and COPY. 


Initial Values 


The initial value of any item in the WORKING-STORAGE SECTION except an index data item is 
specified by using the VALUE clause with the data item. The initial: value of any index data item is 
unpredictable. 


Condition-Names 
Any WORKING-STORAGE item may be a conditional variable with which one or more condition- 
names are associated. Entries defining condition-names must immediately follow the conditional 


variable entry. Both the conditional variable entry and the associated condition-name entries may con- 
tain VALUE clauses. 


CODING THE WORKING-STORAGE SECTION 
Figure 6-5 illustrates the coding of the WORKING-STORAGE SECTION. 
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The LINKAGE SECTION is used for Inter-Program Communication to provide a facility by which 
a program can communicate with one or more programs. This communication is provided by the ability 
to transfer control from one program to another within a run unit, and the ability for both programs 
to have access to the same data items. 


The LINKAGE SECTION is an optional part of the DATA DIVISION. It is used when the object 
program is to be a called program and the CALL statement in the calling program contains a USING 
phrase. 


The LINKAGE SECTION is used for describing data that is available through the calling program but 
is to be referred to in both the calling and the called programs. No space is allocated in the program 
for data items referenced by data-names in the LINKAGE SECTION of that program. PROCEDURE 
DIVISION references to these data items are resolved at object time by equating the reference in the 
called program to the location used in the calling program. In the case of index-names, no such corres- 
pondence is established. Index-names in the called and calling programs always refer to separate in- 
dices. 


LINKAGE SECTION Structure 


The structure of the LINKAGE SECTION is the same as that previously described for the WORKING- 
STORAGE SECTION. It begins with a section header, followed by data description entries for noncon- 
tiguous data items and/or record description entries. But, each item name must be unique within the 
called program since it cannot be qualified. | 


Data items defined in the LINKAGE SECTION of the called program may be referenced within the 
PROCEDURE DIVISION of the called program only if specified as operands of the USING phrase 
of the PROCEDURE DIVISION. header or are subordinate to such operands, and the object program 
is under the control of a CALL statement that specifies a USING phrase. Condition-names and/or 
index-names associated with such data-names and/or subordinate data items, may also be referenced 
in the PROCEDURE DIVISION. 


General Format: 


LINKAGE SECTION. 
77 data-name-] 
condition-name- | 


data-name-n 
data-name-2 
02 data-name-3 


om 
— s] 


66 data-name~m RENAMES data-name-3 
01 data-name-4 
02 data-name-5 
03 data-name-n 
condi tion-name-2 
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Noncontiguous LINKAGE Storage 


Items in the LINKAGE SECTION that have no hierarchic relationship to one another need not be 
grouped into records and are classified and defined as noncontiguous elementary items. Each of these 
data items is defined in a separate data description entry which begins with the special level-number 
TT; 


The following data clauses are required in each data description entry: 


Level-number Ty 
Data-name 
The PICTURE clause or the USAGE IS INDEX clause. 


Other data description clauses are optional and can be used to complete the description of the item 
if necessary. 


Linkage Records 


Data elements in the LINKAGE SECTION which have a definite hierarchic relationship to one another 
must be grouped into records according to the rules for formation of record descriptions. Any clause 
which is used in an input or output record description can be used in a LINKAGE SECTION. 
Initial Values | 


The VALUE clause must not be specified in the LINKAGE SECTION except in condition-name entries 
(level 88). 


CODING THE LINKAGE SECTION 
Figure 6-6 illustrates the coding of the LINKAGE SECTION. 
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The following two programs, IPCCALL and STATE, are sample programs using Inter-Program Com- 
munication (IPC). The calling program, IPCCALL, through the use of the CALL statement, passes 
a data item to STATE. The called program, STATE, has a LINKAGE SECTION, and the USING 
phrase specified in the PROCEDURE DIVISION heading in which to accept the shared data. When 
the program STATE has completed and executes the EXIT PROGRAM statement, control and the new 
value of the data item is returned to IPCCALL. 


BURROUGHS 61800731700 COEOL74 COMPILER» 


IPCCALL 


1168622 


000200 
000300 
000400 
000500 
000600 
000700 
000800 
000900 
001000 
001100 
001209 
001600 
002200 
002300 
002400 
002500 
002510 
002520 
002530 
002609 
002700 


' 0028C0 


0029090 
003000 
003100 
003900 
004000 
004109 
004200 
004400 


ICENTIFICATION OIVISTON. 


PROGRAM=-TD. TPCCALL. 
AUTHOR. MAURA ALFORC. 
DATEWWRITTEN. 04/28/80. 


DATE~COMPILED. 1980 JUNE 27 11:04 
SECURITY. NONE. 

REMARKS.» I CALL A PROGRAM CALLED STATE. 
ENVIRONMENT DIVISION. 

CONFIGURATION SECTION. 

SOURCE*COMPUTER. 81985. 

OSJECT*COMPUTER. £1985. 

DATA DIVISTON. 


WORKING@"STORAGE SECTION. 


O01 U=-STATE“AREA. 
05 UM-STATE. 
10 U*NUMERIC@STATE PIC 95~ 
05 UnSTATE“NAME PIC X(20). 
05 UnrSTATE“RETURA“STATUS PIC 9. 


PROCE CURE DIVISICN. 

BEGIN. 
MOVE “"AL™ TO U-STATE. 
CALL "STATE" USING U-STATE-AREA. 
DISPLAY "UMSTATE“AREA = " UnSTATEAREA. 
MOVE "CT" TO U-STATE. 
CALL "STATE" USING U-STATEAREA. 
DISPLAY "UWSTATE“AREA = * UMSTATEWAREA.W 
CANCEL "STATE". 
STOP RUN} 


MARK IXe001 CO5S/07/80 16:27) 
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STATE 


000100 
000200 
000300 
000310 
000400 
0005C0 
000€00 
000700 
000800 
000900 
001000 
001100 
001200 
001309 
001400 
001500 
001600 
001700 
001800 
001909 
002000 
002100 
002110 
003700 
003800 
003900 
004000 
004109 
004200 
004210 
004300 
004400 
004500 
004609 
0047090 
004809 
0046819 
004900 
005000 
005100 
005200 
005300 
005400 
005500 
005600 
005700 
005800 
005900 
006000 
006100 
006200 
006309 
006400 
006500 
006609 
006700 
006809 
006909 
007000 
007109 
007209 
0073090 
007499 
007509 
007600 
007700 
007809 
007900 
008000 
008109 
0C8209 
0083090 
008400 
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IOENTIFICATION CIVISTION. 


PROGRAM-TOD.~ STATE. 
AUTHOR. TIC. 
REMARKS. IT AM CALLED SY A PROGRAM NAMED IPCCALL. 


ENVIRCAMENT DIVISTON. 
CONFIGURATION SECTION. 
SOURCE“COMPUTER. 871855. 
OBJECT“COMPUTER.j 87-1355. 
DATA OFVISION. 
WORKING“STORAGE SECTION. 


IX.0.61 (05/07/80 16:27) 


OL WNUMBER-OF<STATESCOCES~IN-TABLE PIC 9(€2) COMP VALUE 10. 
O01 WS“STATE“ASBREV= AND“NAMES. 
03 STATE-01 PIC X€23) VALUE *AL~ALABAMA ee 
03 STATE-O02 PIC X€23) VALUE *AK-~ALASWA ". 
O03 STATE03 PIC XC23) VALUE "AZ“ARIZONA ". 
03 STATE“04 PIC X€23) VALUE *AR“ARKANSAS *. 
03 STATE“05 PIC X€23) VALUE “CA~CALTFORNIA we 
O03 STATE-06 PIC X(€23) VALUE *CO~COLORACO we 
03 STATE-O7 PIC XC23) VALUE "“CT-CONNECTICUT ". 
03 STATE“08 PIC X€23) VALUE "DE-ODELAWARE *. 
03 STATE-09 PIC X(23) WALUE "OCOISTRICT CF COLUMETA™. 
03 STATE“10 PIC X€23) VALUE "FL-FLCRIDA ". 
O1 WS~STATE-TABLE REDEFINES WS-STATE-ABBREV-AND-NAMES. 
03 WS“STATE OCCURS 10 TIMES 
INDEXED BY WS-STATE-NUMGER. 
05 WS"STATE“ABBREVIATICN PIC x€2). 
05 ‘FILLER PIC X€1). 
0S WS~STATE"KAME PIC xX€20). 


LINKAGE SECTION. 


OL U-STATETAREA. 
05 U-STATE. ; 
10) UTNUMERIC“STATE PIC 9€2). 
05 Un-STATE“NAHE PIC x€20). 
05 Un-STATESRETURN-“STATUS PIC 9(1). 


PROCE CURE DIVISION USING UTSTATE-AREA. 


OOO~ENTRY. 
MCVE ZERO TO U-STATEWRETURN“STATUS. 
MCVE SPACES TG U-STATE“NAME. 
TF U=STATE IS NUMERIC - 
PERFORM OLO“CONVERT“NUMERIC“CODE 
ELSE 
PERFORM O2Z20-CONVERT-ALPHA-CODE. 


DOS~EXIT“PROGRAM. 
EXIT PROGRAM. 


O10 -CCNVERT-“NUMERIC~CODE. 
IF UtNUMERIC@STATE > ZERO ANC 
KOT > NUPMPERMCF-STATE-COCES-~IN-TASLE 


SET WS"“STATE“NUMBER TO UmNUMERIC“STATE 
MOVE WS“STATESABRREVIATION CWS“STATE~NUPBER) 


TO U-STATE 
MOVE WS"STATE“NAME 
ELSE 
IF UMNUMERIC™STATE = 939 
MOVE "XX" TO U-STATE 
ELSE 


MOVE 1 TC UWSTATERETURN-STATUS. 


O2ZO=CONVERT“ALPHA-COLDE. 


IF UrSTATE = "XX" 
MOVE 98 TO UTNUMERIC“STATE 
ELSE 


SET WS~STATE-AUMGEPR TO 1 
SEARCH hS-STATE 


CWS*STATE-NUMBER) TO UtSTATENAME 


WHEN UMSTATE = 


AT EWC MOVE 1 TO UTSTATE-RETURN@STATUS 


SET UtAUMERTCTSTATE TO WS-“STATE*NUMBEPR 
MOVE WS"STATESNAME CWS“STATESNUMBES) TC 


WS*STATE“ABSREVIATION CWS“STATE-NUMGER) 


URSTATE-“NAME, 
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COMMUNICATION SECTION 


The COMMUNICATION SECTION is that part of the DATA DIVISION wherein the interface areas 
necessary to communicate with data communication devices declared in the Network Controller (NC) 
are defined. 


In a COBOL74 program the communication description entries (CD) represent the highest level of or- 
ganization in the COMMUNICATION SECTION. The COMMUNICATION SECTION header is fol- 
lowed by a communication description entry consisting of a level indicator (CD), a data-name, and 
a series of independent clauses. These clauses indicate the queues and subqueues, the message date and 
time, the source, the text length, the status and end keys, and message count of input. Additional 
clauses specify the destination count, the text length, the status and error keys, and destinations for 
the output. The actual entry is terminated by a period. These record areas may be implicitly redefined 
by user-specified record description entries following the various communication description clauses. 


B 1000 COBOL74 supports four levels of queue and subqueue names, and also provides full capabilities 
for the ENABLE, DISABLE, RECEIVE and SEND statements. Full Communication Section imple- 
mentation is possible only if the Data Communication Subsystem is a participating MCS and supports 
these features. For a non-participating MCS, B COBOL74 provides limited capabilities for the EN- 
ABLE, DISABLE, RECEIVE and SEND statements as described in section 7 of this manual. A non- 
supportive MCS does not allow use of the SYMBOLIC SUB-QUEUES or the INITIAL clause as de- 
scribed in this section. Valid syntax that is not supported, however, is ignored during program execu- 
tion. 
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Communication Description Structure 
General Format: 


Format 1: 


| CD cd-name; 


[ ( ; SYMBOLIC QUEUE IS data-name-1] 


[ ; SYMBOLIC SUB-QUEUE-! IS data-name-2 ] 
[ ; SYMBOLIC SUB-QUEUE-2 IS data-name-3 ] 
[ ; SYMBOLIC SUB-QUEUE-3 IS data-name-4 ] 


FOR [INITIAL ] INPUT [ ; MESSAGE DATE IS data-name-5 | 
[ ; MESSAGE TIME IS data-name-6 | 
[ ; SYMBOLIC SOURCE IS data-name-7] 
[ ; TEXT LENGTH IS data-name-8 | 
€ END KEY IS data-name-9 ] 
[; STATUS KEY IS data-name-10 ] 
[ ; MESSAGE COUNT IS data-name-11] | 


[ data-name-1, data-name-2,..., data-name-11 | 
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Format 2: 


~ CD cd-name; FOR OUTPUT 
[ ; DESTINATION COUNT IS data-name-1 ] 
[ ; TEXT LENGTH IS data-name-2 J 
L; STATUS KEY IS data-name-3 ] 
E DESTINATION TABLE OCCURS integer-2 TIMES 


[ ; INDEXED BY index-name-1 [, index-name-2] ... ] | 


[ ; ERROR KEY IS data-name-4 | 


[ ; SYMBOLIC DESTINATION IS data-name-5 } . 


Syntax Rules: 


Format 1: 
1. A CD must appear only in the COMMUNICATION SECTION. 
2. Within a single program, the INITIAL clause may be specified in only one CD. The INITIAL 


clause must not be used in a program that specifies the USING phrase of the PROCEDURE 
DIVISION Header. 


3. Except for the INITIAL clause, the optional clauses may be written in any order. 


4. If neither option in the format is specified, a level 01 data description entry must follow the 
CD description entry. Either option may be followed by a level 01 data description entry. 


5. For each INPUT CD, a record area of 87 contiguous standard data format characters is allo- 
cated. This record area is defined as follows: 


a. The SYMBOLIC QUEUE clause defines data-name-1 as the name of an elementary alpha- 
numeric data item of 12 characters occupying positions 1 through 12 in the record. 


b. The SYMBOLIC SUB-QUEUE-1 clause defines data-name-2 as the name of an elementary 
alphanumeric data item of 12 characters occupying positions 13-24 in the record. 


c. The SYMBOLIC SUB-QUEUE-2 clause defines data-name-3 as the name of an elementary 
alphanumeric data item of 12 characters occupying positions 25 through 36 in the record. 


d. The SYMBOLIC SUB-QUEUE-3 clause defines data-name-4 as the name of an elementary 
alphanumeric data item of 12 characters occupying positions 37 through 48 in the record. 
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. The MESSAGE DATE clause defines data-name-5 as the name of a data item whose impli- 


cit description is that of an integer of 6 digits without an operational sign occupying char- 
acter positions 49 through 54 in the record. 


. The MESSAGE TIME clause defines data-name-6 as the name of a data item whose impli- 


cit description is that of an integer of 8 digits without an operational sign occupying char- 
acter positions 55 through 62 in the record. 


. The SYMBOLIC SOURCE clause defines data-name-7 as the name of an elementary alpha- 


numeric data item of 12 characters occupying positions 63 through 74 in the record. 


. The TEXT LENGTH clause defines data-name-8 as the name of an elementary data item 


whose implicit description is that of an integer of 4 digits without an operational sign occu- 
pying character positions 75 through 78 in the record. 


i. The END KEY clause defines data-name-9 as the name of an elementary alphanumeric data 


item of 1 character occupying position 79 in the record. 


j. The STATUS KEY clause defines data-name-10 as the name of an elementary alphanumeric 


data item of 2 characters occupying positions 80 through 81 in the record. 


. The MESSAGE COUNT clause defines data-name-11 as the name of an elementary data 


item whose implicit description is that of an integer of 6 digits without an operational sign 
occupying character positions 82 through 87 in the record. 


The second option may be used to replace the above clauses by a series of data-names which, taken 
in order, correspond to the data-names defined by these clauses. 


Use of either option results in a record whose implicit description is equivalent to the following: 
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Implicit 
Description Comment 


01 data-name-O. 


02 data-name-] PICTURE X(12). SYMBOLIC QUEUE 

02 data-name-2 PICTURE X(12). SYMBOLIC SUBQUEUE 1 

02 data-name-3 PICTURE X(12). SYMBOLIC SUBQUEUE 2 

02 data-name-4& PICTURE X(12). SYMBOLIC SUBQUEUE 3 

O02 data-name-5 PICTURE 9(06). MESSAGE DATE 

02 data-name-6 | PICTURE 9(08). MESSAGE TIME 

02 ps clea PICTURE X(12). SYMBOLIC SOURCE 

02 data-~name- PICTURE 9(04). TEXT LENGTH 

02 data-name-9 PICTURE X. END KEY 

02 data-name-10 PICTURE XX. STATUS KEY 

02 data-name-1] PICTURE 9(06). MESSAGE COUNT 
NOTE 


The information under the heading Comment is for clarification and is not 
part of the description. 
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6. Record description entries following an INPUT CD implicitly redefine this record and must de- 
scribe a record of exactly 87 characters. Multiple redefinitions of this record are permitted; 
however, only the first redefinition may contain VALUE clauses. The record is always refer- 
enced according to the data descriptions defined in Syntax Rule 5. 


7. Data-name-1l, data-name-2, ..., data-name-11 must be unique within the CD. Within this series, 


any 


Format 2: 


data-name may be replaced by the reserved word FILLER. 


8. A CD must appear only in the COMMUNICATION SECTION. 


9. If none of the optional clauses of the CD is specified, a level 01 data description entry must 
follow the CD description entry. 


10. For 


each OUTPUT CD, a record area of contiguous standard data format characters is allo- 


cated according to the formula: (10 + 13 x integer-2). 


a. 


The DESTINATION COUNT clause defines data-name-1 as the name of a data item whose 
implicit description is that of an integer without an operational sign occupying character 
positions 1 through 4 in the record. 


. The TEXT LENGTH clause defines data-name-2 as the name of an elementary data item 


whose implicit description is that of an integer of 4 digits without an operational sign occu- 
pying character positions 5 through 8 in the record. 


The STATUS KEY clause defines data-name-3 to be an elementary alphanumeric data item 
of 2 characters occupying positions 9 through 10 in the record. 


. Character positions 11 through 23 and every set of 13 characters thereafter form table 


items of the following description: 


1) The ERROR KEY clause defines: data-name-4 as the name of an elementary alphanu- 
meric data item of 1 character. 


2) The SYMBOLIC DESTINATION clause defines data-name-5 as the name of an elemen- 
tary alphanumeric data item of 12 characters. 


Use of the above clauses results in a record whose implicit description is equivalent to the following: 


01 
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Implicit Description Comment 

data-name-O. 
02 data-name-]1 PICTURE 9(04). DESTINATION COUNT 
02 data-name-2 PICTURE 9(04). TEXT LENGTH 
02 data-name-3 PICTURE XX. STATUS KEY 
02 data-name OCCURS integer-2 TIMES. DESTINATION TABLE 

03 data-name-4& PICTURE X. ERROR KEY 

03 data-name-5 PICTURE X(12). SYMBOLIC DESTINATION 
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14. 


11. 


12. 


13. 


15; 


NOTE 
The information under the heading Comment is for clarification and is not 
part of the description. 


Record descriptions following an OUTPUT CD implicitly redefine this record. Multiple 
redefinitions of this record are permitted; however, only the first redefinition may contain 
VALUE clauses. That record is always referenced according to the data descriptions defined 
in Syntax Rule 10. 


Data-name-1, data-name-2, ..., data-name-5 must be unique within a CD. 
If the DESTINATION TABLE OCCURS clause is not specified, one (1) ERROR KEY and 
one (1) SYMBOLIC DESTINATION area is assumed. In this case, neither subscripting nor 


indexing is permitted when referencing these data items. 


If the DESTINATION TABLE OCCURS clause is specified, data-name-4 and data-name-5 
may only be referred to by subscripting or indexing. 


There is no restriction on the value of the data item referenced by data-name-1 and integer-2. 


General Rules: 


Format |: 
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1. 


The INPUT CD information constitutes the communication between the Data Communication 
Subsystem and the COBOL74 program as information about the message being transmitted. 
This information does not come from the terminal as part of the message. 


. Subqueues can be implemented in B 1000 COBOL74 but if these fields are not used, ANSI$74 


rules specify that these unused fields must contain spaces. Since COBOL74 initializes data to 
hexadecimal zeros, not spaces, it is necessary to explicitly define a value of spaces for each of 
these unused fields to avoid a run-time error. 


. The data items referenced by data-name-1, data-name-2, data-name-3, and data-name-4 contain 


symbolic names designating queues, subqueues, ... respectively. All symbolic names must have 
been previously defined in the Data Communication Subsystem. In accordance with the B nam- 
ing conventions, positions 11 and 12 in each data-name must contain spaces. 


The SYMBOLIC QUEUE field in the INPUT CD is mandatory, unless the SQN option is used 
at run time. Refer to the B 1000 Systems Software Operation Guide, Volume 1. Since the SQN 
option must be sent by an MCS, use is restricted and thus, designation of the SYMBOLIC 
QUEUE field in the INPUT CD is the easiest method of indicating the file name. 


. A RECEIVE statement causes the serial return of the next message or portion of a message 


from the queue as specified by the entries in the CD. 
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If during the execution of a RECEIVE statement, a message from a more specific source is 
needed, the contents of the data item referenced by data-name-1 can be made more specific 
by the use of the contents of the data items referenced by data-name-2, data-name-3, and in 
turn data-name-4. When a given level of the queue structure is specified, all higher levels must 
also be specified. 


If less than all the levels of the queue hierarchy are specified, the Data Communication Subsys- 
tem determines the "next” message or portion of a message to be accessed. 


After the execution of a RECEIVE statement, the contents of the data items referenced by 
data-name-1 through data-name-4 will contain the symbolic names of all the levels of the queue 
structure. 


5. The INITIAL clause is specified in an INPUT CD, whenever a COBOL74 program is initiated 
by the Data Communication Subsystem as a result of receiving a message. The INITIAL clause 
requires a Data Communication Subsystem that supports this concept. The symbolic names of 
the queue structure that demanded this activity are placed in the data items referenced by data- 
name-1 through data-name-4, the SYMBOLIC QUEUE. In all other cases, the contents of the 
data items referenced by data-name-1 through data-name-4 of the CD associated with the 
INITIAL clause are initialized to spaces. 


The symbolic names are inserted, or the initialization to spaces is completed prior to the execu- 
tion of the first PROCEDURE DIVISION statement. 


The execution of a subsequent RECEIVE statement naming the same contents of the data items 
referenced by data-name-1 through data-name-4 will return the actual message that caused the 
program to be scheduled. Only at that time is the remainder of the CD updated. 


6. MESSAGE DATE (data-name-5) has the format YYMMDD (year, month, day), with contents 
representing the date the message was received by the Data Communication Subsystem. 


The contents of the data item referenced by data-name-5 are only updated as part of the execu- 
tion of a RECEIVE statement. 


7. The contents of MESSAGE TIME (data-name-6) have the format HHMMSSTT (hours, min- 
utes, seconds, hundredths of a second) and represent the time the message was received by the 
Data Communication Subsystem. 


The contents of the data item referenced by data-name-6 are only updated as part of the execu- 
tion of the RECEIVE statement. 


8. During the execution of a RECEIVE statement, the data item referenced by data-name-7 (SYM- 
BOLIC SOURCE) is updated with the station name, as defined in the Station Section of the 
Network Controller. The SYMBOLIC SOURCE is the communications terminal that is the 
source of the message being transferred. However, if the station name of the communication 
terminal is not known, the contents of the data item referenced by data-name-7 will be spaces. 


After every RECEIVE operation, the user program must move the SYMBOLIC SOURCE sta- 
tion name to the appropriate field (SYMBOLIC DESTINATION) in the OUTPUT CD, before 
initiating the SEND to that station. If this is not done, a run-time error occurs since there is 
no destination station available for message transfer. 
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9. TEXT LENGTH (data-name-8) contains the number of character positions filled as a result of 
the execution of the RECEIVE statement. 


10. The contents of the data item referenced by data-name-9 (END KEY) are set only by the Data 
Communication Subsystem as part of the execution of a RECEIVE statement according to the 
following rules: 


a. When the RECEIVE MESSAGE phrase is specified, then: 


b. 


C. 


1) If an end of group has been detected, the contents of the data item referenced by data- 
name-9 are set to 3; 


2) If an end of message has been detected, the contents of the data item referenced by 
data-name-9 are set to 2; 


3) If less than a message is transferred, the contents of the data item referenced by data- 
name-9 are set to 0. 


When the RECEIVE SEGMENT phrase is specified, then: 


1) If an end of group has been detected, the contents of the data item referenced by data- 
name-9 are set to 3; 


2) If an end of message has been detected, the contents of the data item beberences by 
data-name-9 are set to 2; 


3) If an end of segment has been detected, the contents of the data item referenced by 
data-name-9 are set to 1; 


4) If less than a message segment is transferred, the contents of the data item referenced 
by data-name-9 are set to 0. 


When more than one of the above conditions is satisfied simultaneously, the rule first satis- 
fied in the order listed determines the contents of the data item referenced by data-name-9. 


11. The STATUS KEY referenced by data-name-10 indicates the status condition of the previously 
executed RECEIVE, ACCEPT MESSAGE COUNT, ENABLE INPUT, or DISABLE INPUT 
statements. 


Use of this field is optional but highly recommended. Any RECEIVE or SEND error, left un- 
detected because of the absence of a STATUS KEY check, causes the program to fall through 
to the next executable statement, in most cases, with no indication to the user that a problem 
exists. 


The actual association between the contents of the data item referenced by data-name-10 and 
the status condition is defined in table 6-4. 


12. The MESSAGE COUNT referenced by data-name-11 indicates the number of messages that 
exist in a queue structure. The Data Communication Subsystem updates the contents of the 


data item referenced by data-name-11 only as part of the execution of an ACCEPT statement 
with the COUNT phrase. 
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Format 2: 


13. 


14. 


15. 


16. 


18. 


The nature of the OUTPUT CD information is such that it is not sent to the terminal, but 
contains information about the message being transmitted. 


During the execution of a SEND, ENABLE OUTPUT, or DISABLE OUTPUT statement, the 
contents of the data item referenced by data-name-!1 (DESTINATION COUNT) indicate the 
number of symbolic destinations that are to be used from the area referenced by data-name- 
5 (SYMBOLIC DESTINATION). 


The first symbolic destination is found in the first occurrence of the area referenced by data- 
name-5; the second symbolic destination in the second occurrence of the area referenced by 
data-name-5 ..., up to and including the occurrence of the area referenced by data-name-S indi- 
cated by the contents of data-name-1. 


If, during the execution of a SEND, ENABLE OUTPUT, or DISABLE OUTPUT statement, 
the value of DESTINATION COUNT (data-name-1) is outside the range of 1 through integer- 
2, an error condition is indicated and the execution of the SEND, ENABLE OUTPUT, or DIS- 
ABLE OUTPUT statement is terminated. 


It is the responsibility of the user to ensure that the value of DESTINATION COUNT (data- 
name-1) is valid at the time of execution of the SEND, ENABLE OUTPUT, or DISABLE 
OUTPUT statement. 


As part of the execution of a SEND statement, the Data Communication Subsystem interprets 
the contents of TEXT LENGTH (data-name-2) as user indication of the number of leftmost 
character positions of the data item referenced by the associated SEND identifier from which 
data is to be transferred. If TEXT LENGTH is zero, no characters are transferred. 


It is important that TEXT LENGTH be given the correct value prior to each SEND of a mes- 
sage size which varies from that of the previous SEND. If TEXT LENGTH is greater than 
the size of the message actually being sent, SEND fails with a STATUS KEY value of 50. 


. Each occurrence of the data item referenced by data-name-5 contains a symbolic destination 


(station name) previously defined in the Network Controller. If the SYMBOLIC DESTINA- 
TION (data-name-5) does not contain a valid station name, SEND fails with a STATUS KEY 
value of 20. 


These symbolic destination names must follow the rules for the formation of system-names. 
In accordance with the B naming conventions, positions 11 and 12 in data-name-5 must con- 
tain spaces. 


The contents of STATUS KEY (data-name-3) indicates the status condition of the previously 
executed SEND, ENABLE OUTPUT, or DISABLE OUTPUT statement. 


The actual association between the contents of the data item referenced by data-name-3 and 
the status condition is defined in table 6-4. 
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Table 6-4. Communication Status Key Condition 


RECEIVE 
SEND 
ACCEPT MESSAGE COUNT 
ENABLE INPUT (without terminal) 
ENABLE INPUT (with terminal) 
ENABLE OUTPUT 
DISABLE INPUT (without terminal) 
DISABLE INPUT (with terminal) 
DISABLE OUTPUT 
STATUS KEY CODE 


No error detected. Action completed. 


con) 


One or more destinations are disabled. Action completed. 


oO 


One or more destinations unknown, or access thereto 
denied by system. Action completed for known destina- 
tions. No action taken for unknown destinations. 
Data-name-4 (ERROR KEY) indicates known or unknown 
(includes system denied access). 


>) 


One or more queues unknown, or access to queue denied 
by system. No action taken. 


The source is unknown, or access thereto denied by the 
system. No action taken. 


0 Content of DESTINATION COUNT invalid. No action 


Password invalid. No enabling/disabling action taken. 


Character count greater than length of sending field 
No action taken 


Partial segment with cither zero character count or 
no sending area specified. No action taken. 


No Data Communication Subsystem present. 
No action taken. 


\O 
— 


wn £ Ww i) nN N —_ 


G12336 
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19. If, during the execution of a SEND, an ENABLE OUTPUT, or a DISABLE OUTPUT state- 
ment, the MCP determines that any specified destination is unknown, or the Network Control- 
ler chooses to deny the program access to any destination, the contents of the data item refer- 
enced by data-name-3 (STATUS KEY) and all occurrences of the data items referenced by 
data-name-4 (ERROR KEY) are updated. 


The contents of the data item referenced by data-name-4, when equal to 1, indicate that the 
associated value in the area referenced by data-name-5 (SYMBOLIC DESTINATION) has not 
been previously defined or has been denied access to this destination. Otherwise, the contents 
of the data item referenced by data-name-4 are set to zero (0). 


All Formats: 


20. Table 6-4 indicates the possible contents of the data items referenced by data-name-10 for For- 
mat 1, and by data-name-3 for Format 2, at the completion of each statement shown. An as- 
terisk (*) on a line in a statement column indicates that the associated code shown for that 
line is possible for that statement. 


Example: 


The following program, ECHO-ECHO, illustrates the COMMUNICATION SECTION in a data communi- 
cation program. The SYMBOLIC QUEUE, MCSREMOTE, is a name declared in the Network Controller. 
One copy of this program can be accessed by more than one station if it is executed by means of the 
SMCS/JOBS file. This program executes under a participating or non-participating, supporting or non- 
supporting Data Communication Subsystem. 
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000100 
GOO200 
000300 
000400 
000300 
000600 
000700 
000800 
0G0900 
001000 
001100 
001200 
001300 
001400 
001500 
001600 
001700 
001800 
001900 
002000 
002100 
GO02200 
002306 
002400 
002500 
002310 
602600 
002700 
002800 
002700 
003000 
003100 
003200 
003300 
003400 
003500 
003600 
003700 
003800 
003900 
004000 
004100 
004200 
004.300 
004406 
004500 
004600 
004700 
004800 
004900 
005000 
003100 
0035200 


x 


% 


se 


x 


x 


IDENTIFICATION DIVISION. 
PROGRAM-ID. ECHU-ECHO. 
AUTHOR. JULIA. 


REMARKS. THIS PROGRAM IS AN ECHO TEST PROGRAM. ENTER A 
MESSAGE UP TO 20 CHARACTERS LONG AND [7 WILL BE REPEATED 
BACK TO YOU. ENTER "END" AND IT WILL GO TO END-OF-JOB. 


ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. B1i000. 
OBJECT~COMPUTER. B1id0d0. 
DATA DIVISION. 
WORKING-STORAGE SECTION. 
O1 QUT-AREA. 


03 FILLER PIC X¢(20) VALUE "I AM YOUR ECHO !! ne 
03 REC-AREA. 

03 END-CODE PIC X(3). 

03 FILLER PIC x¢i?). 


COMMUNICATION SECTION. 

CD INPUT-O FOR INPUT. 

01 IN-O-SPECS. 

WRAKKKKKK "MOSRONGTE" IS THE NAME OF A REMOTE FILE DEFINED IN 
KKKKKKRKK THE NETWORK CONTROLLER. THE SYMBOLIC SUB-QUEUES MUST 
KKXKKKKKK CONTAIN SPACES WHEN NOY USED. 


03 SYMBOLIC-QUE PIC X(12) VALUE "MCSRENOTE”. 
03 SY-SUB1-QUE PIC x(i2) VALUE SPACES. 
03 SY-SUB2-GUE PIC X(i2) VALUE SPACES. 
03 SY-SUB3-QUE PIC X(i2} VALUE SPACES. 


KHKKKKKAKK NEXT 3 FIELDS ARE UPDATED WHEN A MESSAGE IS RECEIVED. 


KKRKKKKKK RECEIVED. 


03 MESS-DATE PIC 96). 
03 MESS-TIME PIC -9(3):. 
03 IN-STATION PIC OAC 2) 
03 IN-TEXT-LENGTH PIC 9(4). 
03 END-KEY PIC X, 


KKKKKKKKK IN-STATUS~-KEY SHOWS STATUS WHEN ONE GF THE FOLLOWING 
KOOKKKKKK STATEMENTS IS EXECUTED: RECEIVE, ACCEPT MESSAGE 
KKAKKKKKK COUNT, ENABLE INPUT, DISABLE INPUT. 

03 IN-STATUS~KEY PIC XxX. 
OOK KKKK FOLLOWING FIELD IS UPDATED WHEN THE ACCEPT MESSAGE 
KAKKKEKKK COUNT STATEMENT IS EXECUTED. 

03 MSG-~COUNT PIC 9G) 


CD OUTPUT-@ FOR OUTPUT. 
O1 QUT-Q-SPECS. 
OOK NUM-OUT-STATIONS WITH A VALUE OF 1 SENDS TO UNE 
KHXKKKKKK STATION AT A TIME. 
03 NUM-OUT-STATIONS PIt 9(4) VALUE 1. 
HKKKKKKAK OUT-TEXT-LENGTH IS UPDATED BY USER, 
03 OQUT-TEXT-LENGTH PIC 9(4) VALUE 40, 
SOR K AKER FOLLOWING FIELD IS UPDATED BY SYSTEM AFTER EXECUTION 


18 


if 


Lt 


pee 


PLN 


8 Boho 


Pin 
PCN 


4 B83bo 


PCN 
PION 
PCN 
PCN 
PCN 
PCN 
FON 


3 19 BSBO 


GOSSO0 3 


005400 
005300 
003600 
0034610 
0083420 
GOS700 
005800 
005900 
006000 
006100 
006200 
006300 
006400 
006500 
006400 
006610 
006620 
006636 
0064640 
006650 
006440 
0064670 
006480 


006700 3 
006800 3 


006900 
007000 
0071006 
007200 
007300 
007310 
007400 
007500 
007600 
007700 
007800 
007900 
008000 
008100 
008200 
008300 
008400 
008500 
0084600 
008700 
COB800 
008700 
009000 
007100 
009200 
007300 
009400 
009300 
OOF 400 
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SOOKE OF SEND, ENABLE QUTPUT, OR DISABLE QUTPUT. 
O03 OUT-STATUS-KET PIC XX. 
AGOKKAKOK WHEN THE FOLLOWING TABLE OCCURS ONLY ONCE, THE 
KKAXKKAKKK MESSAGE IS SENT TO ONE STATION AT A TIME, BASED 
OOK ON THE VALUE IN THE QUT-STATION FIELD. 
O3 GUT-DESTINATION TABLE OCCURS 1. 
O35 QUT-ERROR~KEY PIC xX. 
KXRKKKKKK OUT-STATION £5 UPDATED BY USER WITH STATION NAME (AS 
KKAKKKKKK DECLARED IN NETWORK CONTROLLER? OF THE DESTINATION 
KKKAKKKKK FOR A MESSAGE. 
O35 OQUT-STATION ~ PIC X(12). 


PROCEDURE DIVISION. 


*OKKKKKK THE ENABLE INPUT STATEMENT IS ONLY NECESSARY IF 
KKKKKKKK PASSWORD CHECKING IS DESTRED FOR COBOL74 DATA 
KKKKKKKK COMMUNICATION USERS. THE PASSWORD, REFERRED TO BELOW 
KXKKKKKK AS KEY, MUST BE ASSOCIATED WITH THE SMCS PROGRAM VIA 
OOOO THE "PASSWORD" COMMAND FROM THE SYSTEM ODT. 

KKKKKKKK SYSTEM ODT. 


KKTHE FOLLOWING PARAGRAPH DEMONSTRATES USE OF THE ENABLE VERBXx 


x 
ENABLE-EXAMPLE. x 
ENABLE INPUT INPUT-G WITH KEY “BLITZ”. K 

IF IN-STATUS-KEY NOT = 00 % 
DISPLAY “IN-STATUS-KEY = " IN-STATUS~KEY K 
"SINCE MY IN-STATUS-KEY DOES NOT = 00," x 

" T HAD AN ERROR. MY PASSWORD IS NOT VALID.". x 

STOP RUN. K 

x 


OOOO OOO GOO IGOR COC IC OCG OK 


REGINNING-OF~JUB. 
MOVE SPACES TO REC-AREA. 
RECEIVE INPUT-G@ MESSAGE INTO REC~AREA 
NQ DATA GO TO BEGINNING-OF~JOB. 
IF IN-STATUS-KEY NOT = 00 
DISPLAY “RECEIVE WAS NOT SUCCESSFUL. IN-STATUS-KEY = " 
IN-STATUS~KEY 
STOP RUN. 
IF END-CODE = "END" 
DISPLAY "THANK YOU FOR TALKING TO ME!!" 
STOP RUN. 
KXKKKAKAK SEND MESSAGE TO STATION THAT YOU RECEIVED FROM. 
MOVE IN-STATION TO OUT-STATION(1). 
SEND QUTPUT-G FROM OUT-AREA WITH EMI. 
IF QOUT-STATUS-KEY NOT = 00 
DISPLAY "MY SEND WAS NOT SUCCESSFUL." 


" MY OUT-STATUS-KEY = " QUT-STATUS~KEY 
"s HY QUT-ERROR-KEY = " QUT-ERROR-KEY (1) 
STOP RUN. 


IF OQUT-ERROR-KEY (1) NOT = 0 
DISPLAY “OUT-STATION HAS BEEN DENTED, OOPS!" 
STOP RUN. 

HU TO BEOINNING-OF-JOk, 


RZ osm st ce fe 


18 


1g g 


18 6. 


PCN 

PON 

83Sho 
83bo 
83bo 
Bho 
8Sho 
8380 
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SECTION 7 
PROCEDURE DIVISION 


GENERAL 


The PROCEDURE DIVISION must be included in every COBOL74 source program. This division may 
contain declarative and nondeclarative procedures. 


Declarative sections must be grouped at the beginning of the PROCEDURE DIVISION preceded by 
the key word DECLARATIVES and followed by the key words END DECLARATIVES. Refer to the 
USE statement in this section. 


RULES OF PROCEDURE FORMATION 


A procedure is composed of a paragraph or group of successive paragraphs, a section or a group of 
successive sections within the PROCEDURE DIVISION. If one paragraph is in a section, then all 
paragraphs must be in sections. A procedure-name is a word used to refer to a paragraph or section 
in the source program in which it occurs, and consists of a section-name or paragraph-name which 
may be qualified. 


The end of the PROCEDURE DIVISION and the physical end of the program is that physical position 
in a COBOL74 source program after which no further procedures appear. 


A section consists of a section header followed by zero, one, or more successive paragraphs. A section 
ends immediately before the next section or at the end of the PROCEDURE DIVISION or, in the 
declaratives portion of the PROCEDURE DIVISION, at the key words END DECLARATIVES. 


A paragraph consists of a paragraph-name, followed by a period and a space, followed by zero, one, or 
more successive sentences. A paragraph ends immediately before the next paragraph-name or section- 
name or at the end of the PROCEDURE DIVISION or, in the declaratives portion of the PROCEDURE 
DIVISION, at the key words END DECLARATIVES. 


A sentence consists of one or more statements and is terminated by a period. 


A statement is a syntactically valid combination of words and symbols beginning with a COBOL74 
verb. 


The term ‘identifier’ is defined as the word or words necessary to make unique reference to a data 
item. ; 


EXECUTION OF THE PROCEDURE DIVISION 


Execution begins with the first statement of the PROCEDURE DIVISION, excluding declaratives. State- 
ments are executed in the order of appearance, except where the user indicates GO TO, PERFORM, 
CALL, conditional statements, and declarative procedures. 


PROCEDURE DIVISION STRUCTURE 


The PROCEDURE DIVISION is made up of the PROCEDURE DIVISION header and the PROCEDURE 
DIVISION body. Descriptions of these follow.. 
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PROCEDURE DIVISION Header 


The PROCEDURE DIVISION is identified by and must begin with the following header: 


PROCEDURE DIVISION [USING data-name-! [, data-name-2 ] 


PROCEDURE DIVISION Body 


The body of the PROCEDURE DIVISION must conform to one of the following two formats. 


[ DECLARATIVES. 


{ section-name SECTION [segment-number]. declarative-sentence 


Format 1: 


[ paragraph-name. [sentence] ... ] a sce 
END DECLARATIVES. ] 
{ section-name SECTION [segment-number]. 


Sota 


[ paragraph-name. [sentence] .. 


Format 2: 


| paragraph-name. [sentence] ... } ae 
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STATEMENTS AND SENTENCES 


There are three types of statements: conditional statements, compiler-directing statements, and 
imperative statements. 


There are three types of sentences: conditional sentences, compiler-directing sentences, and imperative 
sentences. . 


Conditional Statements 


A conditional statement specifies that the truth value of a condition is to be determined and that the 
subsequent action of the object program is dependent on this truth value. 


A conditional statement is 
1. An IF, SEARCH, or RETURN statement. 
2. A READ statement that specifies the AT END or INVALID KEY phrase. 
3. A WRITE statement that specifies the INVALID KEY or END-OF-PAGE phrase. 
4. A START, REWRITE, or DELETE statement that specifies the INVALID KEY phrase. 


5. An arithmetic statement (ADD, COMPUTE, DIVIDE, MULTIPLY, SUBTRACT) that 
specifies the SIZE ERROR phrase. 


6. A RECEIVE statement that specifies a NO DATA phrase. 
7. A STRING, UNSTRING, or CALL statement that specifies the ON OVERFLOW phrase. 
Example: 


The following syntax for the IF statement is an example of a conditional statement. 


statement-|l 


NEXT SENTENCE 


) ¢ 3 ELSE statement-2 
IF conditional ; 
; ELSE NEXT SENTENCE | 


Statement-1 or statement-2 can be either imperative or conditional statements. If statement-1 or state- 
ment-2 is conditional, then these conditions within the conditional statement (IF statement) are con- 
sidered to be nested. 
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Conditional Sentences 


A conditional sentence is a conditional statement, optionally preceded by an imperative statement, term- 
inated by a period. . 


Examples: 


IF AGE IS GREATER THAN VOTE-AGE GO TO PARTY-TYPE, 
ELSE ADD 1 TO DONT-COUNT, GO TO GET-NEXT-PERSON. 


IF SALES IS EQUAL TO QUOTA , MOVE SALESMAN TO 
PROMOTION-LIST, ELSE MOVE SALESMAN TO BAD-LIST. 


Compiler-Directing Statements | 
A compiler-directing statement consists of a compiler-directing verb and its operands. The compiler- 


directing verbs are COPY and USE (refer to the COPY statement and the USE statement in this sec-. 
tion). A compiler-directing statement causes the compiler to take a specific action during compilation. 


Compiler-Directing Sentences | 
A compiler-directing sentence is a single compiler-directing statement terminated by 4 period. 
Example: 

MYFILE. COPY "FAMILY/MYFILE ON MYPACK’”, 
imperative Statements 
An imperative statement indicates a specific unconditional action to be taken by the object program. 
An imperative statement is any statement that is neither a conditional statement nor a compiler-direct- 


ing statement. An imperative statement may consist of a sequence of imperative statements, each pos- 
sibly separated from the next by a separator. The imperative verbs are: 


ACCEPT GENERATE SEND 

ADD (1) GO SET 

ALTER INITIATE SORT 
CALL(Q) INSPECT START (2) 
CANCEL MERGE STOP 

CLOSE MOVE STRING (3) 
COMPUTE (1) MULTIPLY (1) SUBTRACT (1) 
DELETE (2) OPEN SUPPRESS 
DISABLE PERFORM TERMINATE 
DISPLAY READ (5) UNSTRING (3) 
DIVIDE (1) RECEIVE (4) WAIT 
ENABLE RELEASE WRITE (6) 
EXIT REWRITE (2) 
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a 


STATEMENTS AND SENTENCES 


The numbers in parentheses following some of the verbs have the following meaning: 


Number 
1 


NNhWN 


Without 
Without 
Without 
Without 
Without 
Without 


the 
the 
the 
the 
the 
the 


Meaning 


optional SIZE ERROR phrase. 

optional INVALID KEY phrase. 

optional ON OVERFLOW phrase. 

optional NO DATA phrase. 

optional AT END phrase or INVALID KEY phrase. 
optional INVALID KEY phrase or END-OF-PAGE phrase. 


When ‘imperative-statement’ appears in the general format of statements, it refers to a statement that 
begins with an imperative verb and specifies an unconditional action to be taken. An imperative state- 
ment may consist of a sequence of imperative statements. Imperative statements must be ended by a 
period, or an ELSE phrase associated with a previous IF statement, or a WHEN phrase associated 
with a previous SEARCH statement. 


imperative Sentences 


An imperative sentence is one Or more imperative statements terminated by a period. An imperative 
statement can contain either a GO TO statement or a STOP RUN statement which, if present, must 
be the last statement in the sentence. 


Examples: 


ADD 1 TO ITEM-COUNT, GO TO READ-NEXT-ITEM. 
DISPLAY "THIS IS THE END ", STOP RUN. 
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CONTROL RELATIONSHIP BETWEEN PROCEDURES 


In COBOL74, imperative and conditional sentences describe the procedure that is to be accomplished. 
The sentences are written successively, according to the rules of the coding form (section 3), to establish 
the sequence in which the object program is to execute the procedure. In the PROCEDURE DIVI- 
SION, names are used so that one procedure can reference another by naming the procedure to be 
referenced. In this way, the sequence in which the object program is to be executed may be varied 
simply by transferring control to a named procedure. 


In procedure execution, control is transferred only to the beginning of a paragraph or section. Control 
is passed to a sentence within a paragraph only from the sentence written immediately preceding it. 
If a procedure is named, control can be passed to it from any sentence which contains a GO TO or 
PERFORM, followed by the name of the procedure to which control is to be transferred. 


Paragraphs 


So that the source programmer may group several sentences to convey one idea (procedure), paragraphs 
have been included in COBOL74. In writing procedures in accordance with the rules of the PROCE- 
DURE DIVISION and the requirements of the coding form (section 3), the programmer begins a 
paragraph with a name. The name consists of a word followed by a period, and the name precedes 
the paragraph it names. A paragraph is terminated by the next paragraph-name. The smallest grouping 
of the PROCEDURE DIVISION which is named is a paragraph. 


Programs may contain identical paragraph-names, provided they are resident in different sections. If 
such paragraph-names are not qualified when used, the current section is assumed. Paragraph-names 
may be used in GO TO, PERFORM, and ALTER statements. 


Sections 


A section consists of zero, one, or more successive paragraphs and must be named when designated. 
The section-name is followed. by the word SECTION, a priority number which is optional, and a peri- 
od. If the section is a DECLARATIVE section, the DECLARATIVE sentence USE or COPY follows 
the section header and begins on the same line. Under all other circumstances, a sentence may not 
begin on the same line as a section-name. The section-name applies to all successive paragraphs until 
another section-name is found. 


Since paragraph-names and section-names both have the same designated position on the reference for- 
mat (position A), section-names, when specified, are written on one line followed by a paragraph nam 
on a subsequent line. 
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SEGMENTATION 


COBOL74 segmentation is a facility that provides a means by which the user may communicate with 
the compiler to specify object program overlay requirements. 


COBOL74 segmentation deals only with segmentation of procedures. As such, only the PROCEDURE 
DIVISION and the ENVIRONMENT DIVISION are considered in determining segmentation require- 
ments for an object program. 


Segmentation provides the facility of intermixing sections with different segment-numbers and allows 
the fixed portion of the source program to contain segments that may be overlaid. 


Program Segments 


Although it is not mandatory, the PROCEDURE DIVISION for a source program is usually written 
as a consecutive group of sections, each of which is composed of a series of closely related operations 
that are designed to collectively perform a particular function. However, when segmentation is used, 
the entire PROCEDURE DIVISION must be in sections. In addition, each section must be classified 
as belonging either to the fixed portion or to one of the independent segments of the object program. 
Segmentation does not affect the need for qualification of procedure-names to ensure uniqueness. 


Fixed ‘Portion 


The fixed portion is defined as that part of the object program which is logically treated as if it were 
always in memory. This portion of the program is composed of two types of segments: fixed permanent 
segments and fixed overlayable segments. 


A fixed permanent segment is the main program segment and may be overlaid in the same manner 
as if it were a fixed overlayable segment. A fixed overlayable segment is a segment in the fixed portion 
which, although logically treated as if it were always in memory, can be overlaid by another segment 
to optimize memory utilization. Variation of the number of fixed permanent segments in the fixed por- 
tion can be accomplished by using a special facility called the SEGMENT-LIMIT clause (refer to SEG- 
MENT-LIMIT in this section). Such a segment, if called for by the program, is always made available 
in the last used state. 


Independent Segments 


An independent segment is defined as part of the object program which can overlay, and can be over- 
laid by, either a fixed overlayable segment or another independent segment. An independent segment 
is in initial state whenever control is transferred (either implicitly or explicitly) to that segment for the 
first time during the execution of a program. On subsequent transfers of control to the segment, an 
independent segment is also in initial state when: 


1. Control is transferred to that segment as a result of the implicit transfer of control between 
consecutive statements from a segment with a different segment-number. 


2. Control is transferred to that segment as the result of the implicit transfer of control between 
a SORT or MERGE statement, in a segment with a different segment-number, and an associ- 
ated input or output procedure in that independent segment. 


3. Control is transferred explicitly to that segment from a segment with a different segment-num- 
ber (with the exception noted in step 2 below). 
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SEGMENTATION 


On subsequent transfer of control to the segment, an independent segment is-in the state when last 
used. 


1. Control is transferred implicitly to that segment from a segment with a different segment-num- 
ber (except as noted in paragraphs 1 and 2 above). 


2. Control is transferred explicitly to that segment as the result of the execution of an EXIT PRO- 
GRAM statement. 


Refer to Explicit and Implicit Transfers of Control in section 2 for additional information. 
Segmentation Classification 


Sections which are to be segmented are classified, using a system of segment-numbers and the following 
criteria. 


1. Logic requirements: Sections which must be available for reference at all times, or which are 
referred to frequently, are normally classified as belonging to one of the permanent segments. 
Sections which are used less frequently are normally classified as belonging either to one of the 
overlayable fixed segments or to one of the independent segments, depending on logic require- 
ments. 


2. Frequency of use: The more frequently a section is referred to, the lower the segment-number; 
the less frequently it is referred to, the higher the segment-number. 


3. Relationship to other sections: Sections which frequently communicate with one another should 
be given the same segment-numbers. 


Segmentation Control 


The logical sequence of the program is the same as the physical sequence except for specific transfers 
of control. If any reordering of the object program is required to handle the flow from segment to 
segment, according to the rules, the compiler provides control transfers to maintain the logical flow 
specified in the source program. The compiler also provides all controls necessary for a segment to 
operate whenever the segment is used. Control may be transferred within a source program to any par- 
agraph in a section. It is not mandatory to transfer control to the beginning of a section. 
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STRUCTURE OF PROGRAM SEGMENTS 


Segment-Numbers 


Section classification is accomplished by means of a system of segment-numbers. The segment-number 
is included in the section header. . 


General Format: 


| Section-name SECTION { segment-number ] . | 


Syntax Rules: 
1. The segment-number must be an integer ranging in value from O through 126. 


2. If the segment-number is omitted from the section header, the segment-number is assumed to 
be zero. 


3. Sections in the declaratives must contain segment-numbers less than 50. 


General Rules: 


1. All sections which have the same segment-number constitute a program segment. Sections with 
the same segment-numbers need not be physically contiguous in the source program. 


2. Segments with segment-numbers 0 through 49 belong to the fixed ‘portion of the object pro- 
gram... 


3. Segments with segment-numbers 50 through 126 are independent segments. 
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SEGMENT-LIMIT 


Ideally, all program segments having segment-numbers ranging from 0 through 49 should be specified 
as permanent segments. However, when insufficient memory is available to contain all permanent seg- 
ments plus the largest overlayable segment, it becomes necessary to decrease the number of permanent 
segments. The SEGMENT-LIMIT feature provides the user with a means of reducing the number of 
permanent segments in a program, while still retaining the logical properties of fixed portion segments 
(segment-numbers 0 through 49). 


General Format: 


The SEGMENT-LIMIT clause appears in the OBJECT-COMPUTER paragraph of the ENVIRON- 
MENT DIVISION and has the following format: 


{, SEGMENT-LIMIT IS segment-number ] 


Syntax Rules: 
1. Segment-number must be an integer ranging in value from 1 through 49. 
General Rules: 
1. When the SEGMENT-LIMIT clause is specified, only those segments having segment-numbers 
from O up to, but not including, the segment-number designated as the segment-limit, are con- 


sidered as permanent segments of the object program. 


2. Those segments having segment-numbers from the segment-limit through 49 are considered as 
overlayable fixed segments. 


3. When the SEGMENT-LIMIT clause is omitted, all segments having segment-numbers from 0 
through 49 are considered as permanent segments of the object program. 


Example: 

All segments whose priority number is less than that specified in SEGMENT-LIMIT are gathered into 
a single segment, regardless of physical location in the source program. All other segments equal to 
or greater than that specified in SEGMENT-LIMIT are gathered into overlayable segments according 
to equal priority number, regardless of physical location in the source program. 


The use of the gathering technique allows programmers to create tailored segments which reduce disk 
access times. 
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Example: 


Program A: SEGMENT-LIMIT equals 17. 


Non-Gathered 


Size in Digits 


Description 


Segment 


Main body of the program 
Used frequently 

Used frequently 

Used infrequently 

Used at EOJ only 

Used frequently 

Used at BOJ only 

Used frequently | 

Used for infrequent test 
Used infrequently 


Gathered 


Description 


body of the program 
frequently 

frequently 
infrequently 

at EOJ only 
frequently (was segment 21) 

at BOJ only (was segment 22) 
frequently (was segment 23) 

for infrequent test (was segment 24) 
infrequently (was segment 25) 


Results of Gathering 


Segment | Description Size in Digits 


00-16 -Main body of the program 4,000 
17 Used frequently 3,500 
18 Used infrequently 5,000 

Used infrequently 5,000 


Used infrequently 5,000 
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"Fall through” is performed in the sequence shown in the Non-Gathered example, and not as appears 
in the Results of Gathering example. This preserves the logical integrity of the original program. 


The COBOL74 interpreter automatically checks to see whether an overlay being called for by an object 
program is already present in memory. If present, no disk access is required and the program is not 
interrupted. If the overlay is not present, the COBOL74 interpreter interrupts the program and accesses 
the disk for the desired overlayable portion of the program. The COBOL74 interpreter uses overlay 
segments directly from the program library where the object program was compiled to, and is called 
in as an overlay in the initial generated code every time it is required by the operating program. 


Restrictions on Program Flow 
When segmentation is used, the following restriction is placed on the ALTER statement. 


The ALTER Statement 


A GO TO statement in a section whose segment-number is greater than or equal to 50 must not be 
referred to by an ALTER statement in a section with a different segment-number. 


All other uses of the ALTER statement are valid and are performed even if the GO TO to which the 
ALTER statement refers is in a fixed overlayable segment. 
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THE PROCEDURE DIVISION HEADER 
The PROCEDURE DIVISION is identified by, and must begin with, the following header: 


| PROCEDURE DIVISION[USING data-name-1 [, data-name-2] ...] . | 


The USING phrase is present only if the object program is to function under the control of a CALL 
statement, and the CALL statement in the calling program contains a USING phrase. 


Each of the operands in the USING phrase of the PROCEDURE DIVISION header must be defined 
as a data item in the LINKAGE SECTION in the DATA DIVISION of the program in which this 
header occurs, and must have a 01 or 77 level-number. 


Within a called program, LINKAGE SECTION data items are processed according to the data descrip- 
tions given in the called program. 


When the USING phrase is present, the object program operates as if data-name-1 of the PROCE- 
DURE DIVISION header in the called program and data-name-1 in the USING phrase of the CALL 
statement in the calling program refer to a single set of data that is equally available to both the called 
and calling programs. The descriptions of data must define an equal number of character positions; 
however, they need not be the same name. In like manner, there is an equivalent relationship between 
data-name-2, ..., in the USING phrase of the called program and data-name-2, ..., in the USING 
phrase of the CALL statement in the calling program. A data-name must not appear more than once 
in the USING phrase in the PROCEDURE DIVISION header of the called program; however, a given 
data-name may appear more than once in the same USING phrase of a CALL statement. . 


If the USING phrase is specified, the INITIAL clause must not be present in any CD entry. Refer 
to Syntax Rule 2, Format 1, of the Communication Description entry (CD), section 6. 
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Declaratives are procedures which operate under the control of the input-output system or the DEBUG 
facility. Declaratives consist of compiler-directing sentences and associated procedures. Declaratives, if 
used, must be grouped together at the beginning of the PROCEDURE DIVISION. The group of dec- 
laratives must be preceded by the key word DECLARATIVES, and must be followed by the words 
END DECLARATIVES. Each DECLARATIVE consists of a single section and must conform to the 
rules for procedure formation. The next source statement following the END DECLARATIVES state- 
ment must be a section-name or paragraph-name. 


USE Declarative 


A USE declarative is used to supplement the standard procedures provided by the input-output system. 
The USE sentence immediately following the section-name identifies the condition calling for the execu- 
tion of the USE procedures. Only the PERFORM statements may reference all or part of a USE sec- 
tion. The USE sentence alone is never executed. Within a USE procedure, there must be no reference 
to the main body of the PROCEDURE DIVISION. The construct for the USE declarative is as fol- 
lows: 


section-name SECTION. USE 


paragraph-name. First procedure-statement.... 


Complete rules for writing the formats for USE are stated under the USE statement in this section. 


USE FOR DEBUGGING Declarative 


The USE FOR DEBUGGING statement identifies the user items that are to be monitored by the associ- 
ated debugging section. The construct of the USE FOR DEBUGGING statement is: 


section-name SECTION. USE FOR DEBUGGING... 


~ Complete rules for ane the format for USE FOR DEBUGGING are stated in section 10 (DEBUG) 
of this ene: Meg 
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ARITHMETIC EXPRESSIONS 


An arithmetic expression can be an identifier of a numeric elementary item, a numeric literal, such 
identifiers and literals separated by arithmetic operators, two arithmetic expressions separated by an 
arithmetic operator, or an arithmetic expression enclosed in parentheses. Any arithmetic expression may 
be preceded by a unary operator. The permissible combinations of variables, numeric literals, arithme- 
tic Operators, and parentheses are given in table 7-1. 


Those identifiers and literals appearing in an arithmetic expression must represent either numeric 
elementary items or numeric literals on which arithmetic may be performed. 


Arithmetic Operators 
There are five binary arithmetic operators and two unary arithmetic operators that may be used in 


arithmetic expressions. They are represented by specific characters that must be preceded by a separator 
and followed by a ‘separator. 


Binary Arithmetic 


Operators Meaning 
+ Addition 
—_ Subtraction 
* Multiplication 
/ Division 
ed Exponentiation 


Unary Arithmetic: 
Operators Meaning 


+ The effect of multiplication 
by the numeric literal +1 


= The effect of multiplication 
by numeric literal -1. 


Formation and Evaluation Rules 


1. Parentheses may be used in arithmetic expressions to specify the order in which elements are 
to be evaluated. Expressions within parentheses are evaluated first, and within nested parenthe- 
ses evaluation proceeds from the. least inclusive set. When parentheses are not used, or paren- 
thesized expressions are at the same level of inclusiveness, the FONOWANE hierarchical order of 
execution is phe’: 


Ist — Unary plus ae and minus (-) 
2nd — Exponentiation 

3rd — Multiplication and division 
4th — Addition and subtraction 
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2. Parentheses are used either to eliminate ambiguities in logic where consecutive operations of 
the same hierarchical level appear, or to modify the normal hierarchical sequence of execution 
in expressions where it is necessary for deviation from the normal precedence. When the se- 
quence of execution is not specified by parentheses, the order of execution of consecutive 
operations of the same hierarchical level is from left to right. The following expressions are 
ordinarily considered to be ambiguous. 


A/B*FC A/B/C Ate Bowe CS 
These expressions are permitted in COBOL74 and are interpreted as if written, respectively: 
(A / B)*C (A / B) /C | (A ** B) ** C 
Without parenthesizing, the following example 

A+B/C+D** E* F -G 

is interpreted as 

A + (B/C) + (DD ** BE) * F) = G : 

The sequence of operations working from the innermost parentheses to the outermost. That 
is, first exponentiation, then multiplication and division, and finally addition and subtraction 


are performed. 


3. The ways in which operators, variables, and parentheses may be combined in an arithmetic ex- 
pression are summarized in table 7-1, which illustrates that 


a. The letter 'P’ indicates a permissible pair of symbols. 


fof 


b. The hyphen character indicates an invalid pair. 


c. The word Variable indicates an identifier or literal. 


Table 7-1. Combination of Symbols in Arithmetic Expressions 


First . Second Symbol 
Symbol 

va dno or] tf) 
Variable — P — P P 
* / eK 4 _ P ao P i oe 
Unary + or — P = ~ P = 4 
( P = P P = | 
) a P = _ | P 
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4. An arithmetic expression may only begin with the symbol ‘(', ‘+’, ‘-', or a variable and may 
only end with a ’)’ or a variable. There must be a one-to-one correspondence between left and 
right parentheses of an arithmetic expression such that each left parenthesis is to the left of 
the corresponding right parenthesis. 


5. The following rules apply to evaluation of exponentiation in an arithmetic expression: 
a. If the value of an expression to be raised to a power is zero, the exponent must have a 
value not greater than zero. Otherwise, the size error condition exists. Refer to the SIZE 


ERROR phrase in this section. 


b. If the evaluation yields both a positive and a negative real number, the value returned as 
the result is the positive number. 


c. If no real number exists as the result of the evaluation, the size error condition exists. 


6. When no resultant-identifier is associated with an expression, an intermediate data item is used 
to store the value of the arithmetic expression. 


Intermediate Data Item 


An intermediate data item is a signed numeric data item containing the values developed in the course 
of evaluating an arithmetic expression prior to the final value being moved to the resultant-identifier, 
if any. The length of this data item is determined by the compiler throughout the calculation. 
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Conditional expressions identify conditions that are tested to enable the object program to select be- 
tween alternate paths of control depending upon the truth value of the condition. Conditional expres- 
sions are specified in the IF, PERFORM, and SEARCH statements. There are two categories of condi- 
tions associated with conditional expressions: simple conditions and complex conditions. Each may be 
enclosed within any number of paired parentheses, in which case the category is not changed. 


Simple Conditions 


The simple conditions are the relation, class, condition-name, switch status, and sign conditions. A sim- 
ple condition has a truth value of TRUE or FALSE. The inclusion in parentheses of simple conditions 
does not change the simple truth value. Simple conditions cannot contain more than one relational op- 
erator. 


Relation Condition 


A relation condition causes a comparison of two operands, each of which may be the data item refer- 
enced by an identifier, a literal, or the value resulting from an arithmetic expression. A relation condi- 
tion has a truth value of TRUE if the relation exists between the operands. Comparison of two numeric 
operands is permitted regardless of the formats specified in respective USAGE clauses. However, for 
all other comparisons the operands must have the same usage. If either of the operands is a group 
item, the nonnumeric comparison rules apply. 


General Format: 


GREATER THAN 
identifier-| LESS THAN identifier-2 
literal-1 EQUAL TO literal-2 


arithmetic- arithmetic- 
expression-1! expression-2 


NOTE 
The required relational characters ‘>’, '<‘', and '’=' are not underlined 
to avoid confusion with other symbols such as '>’ (greater than or equal 


to). 


The first operand (identifier-1, literal-1, or arithmetic-expression-1) is the subject of the condition; the 
second operand (identifier-2, literal-2, or arithmetic-expression-2) is the object of the condition. The 
relation condition must contain at least one reference to a variable. 


The relational operator specifies the type of comparison to be made in a relation condition. A space, 
comma, semicolon, right parenthesis, closing quotation mark, or closing commercial at sign (@) must 
precede the first reserved word comprising the relational operator. A space, comma, semicolon, left 
parenthesis, opening quotation mark, or opening commercial at sign (@) must follow the last reserved 
word comprising the relational operator. If the relational operator consists of more than one reserved 
word, then a space, comma or semicolon must be used to separate each pair of consecutive reserved 
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words comprising the relational operator. When used, NOT and the next key word or relational charac- 
ter are one relational operator that defines the comparison to be executed for truth value; for example, 
NOT EQUAL is a truth test for an unequal comparison; NOT GREATER is a truth test for an equal 
or less comparison. The meaning of the relational operators is as follows: 


Relational Operator Meaning 


IS [NOT] GREATER THAN Greater than or not greater than 
IS [NOT] > 


IS [NOT] LESS THAN Less than or not less than 

IS [NOT] < 

IS [NOT] EQUAL TO Equal to or not equal to 

IS [NOT] = 

NOTE 

The required relational characters '’>', '<’, and '’=’ are not underlined 
to avoid confusion with other symbols such as ‘>’ (greater than or equal 
to). 


Comparison of Numeric Operands 


For operands whose class is numeric, a comparison is made with respect to the algebraic value of the 
operands. The length of the literal or arithmetic expression operands, in terms of number of digits rep- 
resented, is not significant. Zero is considered a unique value regardless of the sign. 


Comparison of these operands is permitted regardless of the manner in which usage is described. Un- 
signed numeric operands are considered positive for purposes of comparison. 


Comparison of Nonnumeric Operands 


For nonnumeric operands, or one numeric and one nonnumeric operand, a comparison is made with 
respect to a specified collating sequence of characters.: Refer to OBJECT-COMPUTER in Section 5 
for additional information. If one of the operands is specified as numeric, it must be an integer data 
item or an integer literal. The following conditions apply: 


1. If the nonnumeric operand is an elementary data item or a nonnumeric literal, the numeric op- 
erand is treated as though it were moved to an elementary alphanumeric data item of the same 
size as the numeric data item (in terms of standard data format characters), and the contents 
of this alphanumeric data item are compared to the nonnumeric operand. Refer to the MOVE 
statement and the PICTURE character ‘P’ in this section. 


2. If the nonnumeric operand is a group item, the numeric operand is treated as though it were 
moved to a group item of the same size as the numeric data item (in terms of standard data 
format characters), and the contents of this group item are compared to the nonnumeric oper- 
and. Refer to the MOVE statement, and the PICTURE character ‘P’ for additional informa- 
tion. 


3. A noninteger numeric operand cannot be compared to a nonnumeric operand. 


The size of an operand is the total number of standard data format characters in the operand. Numeric 
and nonnumeric operands may be compared only when usage is the same. 
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There are two cases to consider: operands of equal size and operands of unequal size. 


1. Operands of equal size. If the operands are of equal size, comparison effectively proceeds by 
comparing characters in corresponding character positions starting from the high order end and 
continuing until either a pair of unequal characters is encountered or the low order end of the 
operand is reached, whichever comes first. The operands are determined to be equal if all pairs 
of characters compare equally through the last pair, when the low order end is reached. 


The first encountered pair of unequal characters is compared to determine a relative position 
in the collating sequence. The operand that contains the character that is positioned higher in 
_ the collating sequence is considered to be the greater operand. 


2. Operands of unequal size. If the operands are of unequal size, comparision proceeds as though 


the shorter operand were extended on the right by sufficient spaces to make the operands of 
equal size. 


Comparisons Involving Index-Names and/or Index Data Items 
Relation tests may be made between: 


1. Two index-names. The result is the same as if the corresponding occurrence numbers were com- 
pared. 


2. An index-name and a data item (other than an index data item) or literal. The occurrence num- 
ber that corresponds to the value of the index-name is compared to the data item or literal. 


3. An index data item and an index-name or another index data item. The actual values are com- 
pared without conversion. 


The comparison of an index data item with a literal or with any data item not specified above, 
is not allowed. 


Class Condition 

The class condition determines whether the operand is numeric, consisting entirely of the characters 
‘0’, ‘1’, '2', ‘3’, ..., '9', with or without the operational sign, or alphabetic, consisting entirely of 
the characters ‘A’, 'B’, 'C’, ..., 'Z', and space. 


General Format: 


NUMERIC \ 


identifier IS [NOT ] | RUPEEABBYIC 


The usage of the operand used with the ALPHABETIC test must be DISPLAY. The usage of the oper- 
and used with the NUMERIC test must be DISPLAY or COMPUTATIONAL. When used, NOT and 
the next key word specify one class condition that defines the class test to' be executed for truth value; 
for example, NOT NUMERIC is a truth test for determining that an operand is nonnumeric. 
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The NUMERIC test cannot be used with an item whose data description describes the item as alphabet- 
ic or aS a group item composed of elementary items whose data description indicates the presence of 
operational sign(s). If the data description of the item being tested does not indicate the presence of 
an operational sign, the item being tested is determined to be numeric only if the contents are numeric 
and an operational sign is not present. If the data description of the item does indicate the presence 
of an operational sign, the item being tested is determined to be numeric only if the contents are nu- 
meric and a valid operational sign is present. The position and representation of valid operational signs 
is discussed in the PICTURE clause, General Rule 8, the S symbol, and the SIGN clause in section 
6. 


The ALPHABETIC test cannot be used with an item whose data description describes the item as nu- 
meric. The item being tested is determined to be alphabetic only if the contents consist of any combina- 
tion of the alphabetic characters ‘A’ through 'Z' and the space character. 


Condition-Name Condition (Conditional Variable) 


In a condition-name condition, a conditional variable is tested to determine whether or not the value 
is equal to one of the values associated with a condition-name. 


General Format: 


| condition-name | 


If the condition-name is associated with a range or ranges of values, then the conditional variable is 
tested to determine whether or not the value is within this range, including the end values. 


The rules for comparing a conditional variable with a condition-name value are the same as those 
specified for relation conditions. 


The result of the test is TRUE if one of the values corresponding to the condition-name equals the 
value of the associated conditional variable. 


Switch-Status Condition 

_ A switch-status condition determines the ON or OFF status of a switch. The switch-name and the ON 
or OFF value associated with the condition must be named in the SPECIAL-NAMES paragraph of 

the ENVIRONMENT DIVISION. 


General Format: 


| condition-name . | 


The result of the test is TRUE if the switch is set to the specified position corresponding to the condi- 
tion-name. 
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Sign Condition 


The sign condition determines whether or not the algebraic value of an arithmetic expression is less 
than, greater than, or equal to zero. 


General Format: 


POSITIVE ] 
arithmetic-expression IS [NOT] 4 NEGATIVE 


ZERO | 


NN 
SD 


When used, NOT and the next key word specify one sign condition that defines the algebraic test to 
be executed for truth value; for example, NOT ZERO is a truth test for a nonzero (positive or negative) 
value. An operand is positive if the value is greater than zero, negative if the value is less than zero, 
and zero if the value is equal to zero. The arithmetic expression must contain at least one reference 
to a variable. 


Complex Conditions 


A complex condition is formed by combining simple conditions, combined conditions, and/or complex 
conditions with logical connectors (logical operators AND and OR) or negating these conditions with 
logical negation (the logical operator NOT). The truth value of a complex condition, whether parenthe- 
sized or not, is that truth value which results from the interaction of all the stated logical operators 
on the individual truth values of simple conditions, or the intermediate truth values of conditions 
logically connected or logically negated. 


The logical operators with meanings follow. 


Logical Operator Meaning 


AND Logical conjunction; the truth value is TRUE 
if both of the conjoined conditions are TRUE; 
FALSE if one or both of the conjoined 
conditions is FALSE. 


OR Logical inclusive OR; the truth value is TRUE 
if one or both of the included conditions is 
TRUE; FALSE if both included conditions are 
FALSE. 


NOT Logical negation or reversal of truth value; 
the truth value is TRUE if the condition is 
FALSE; FALSE if the condition is TRUE. 


The logical operators must be preceded by a space and followed .by a space. 
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Examples: 

The following are illustrations of complex conditions: 
AGE IS LESS THAN MAX-AGE AND AGE IS GREATER THAN 20. 
AGE IS GREATER THAN 24 OR MARRIED. 


STOCK-ON-HAND IS LESS THAN DEMAND OR STOCK-SUPPLY IS GREATER THAN DE- 
MAND + INVENTORY. 


A IS EQUAL TO B, AND C IS NOT EQUAL TO D, OR E IS NOT EQUAL TO F, AND G 
IS POSITIVE, OR H IS LESS THAN I * J. 


STOCK-ACCT IS GREATER THAN 72 AND (STK-NUMBER IS LESS THAN 100 OR STK- 
NUMBER EQUAL TO 62879). 


It is not necessary to use the same logical connective throughout the complex expression. 
Negated Simple Conditions 

A simple condition is negated through the use of the logical operator NOT. The negated simple condi- 
tion effects the opposite truth value for a simple condition. Thus, the truth value of a negated simple 
condition is TRUE only if the truth value of the simple condition is FALSE; the truth value of a ne- 
gated simple condition is FALSE only if the truth value of the simple condition is TRUE. The inclusion 
in parentheses of a negated simple condition does not change the truth value. 


General Format: 


| NOT simple-condition | 


Combined and Negated: Combined Conditions 


A combined condition results from connecting conditions with one of the logical operators AND or 
OR. 


General Format: 


condition { AND 


condition | 
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Where condition may be: 
1. A simple condition. 
2. A negated simple condition. 
3. A combined condition. 


4. A negated combined condition. The NOT logical operator followed by a combined condition 
enclosed within parentheses. 


5. Combinations of the above, specified according to the rules summarized in table 7-2. 


Although parentheses need never be used when either AND or OR (but not both) is used exclusively 
in a combined condition, parentheses may be used to effect a final truth value when a mixture of AND, 
OR, and NOT is used. Refer to table 7-2 and Condition Evaluation Rules in this section for additional 
information. 


Table 7-2 indicates the ways in which conditions and logical operators may be combined and parenthe- 


sized. There must be a one-to-one correspondence between left and right parentheses such that each 
left parenthesis is to the left of the corresponding right parenthesis. 


Table 7-2. Combinations of Conditions, Logical Operators, and Parentheses 


Location in In a left-to-right sequence of 


Conditional elements: 
Given the following Expression 
element Element, when not Element, when not 
first, may be last, may be 
immediately immediately 
preceded by only: followed by only: 


Simple-condition OR, NOT, AND, ( OR, AND, ) 
simple-condition, simple-condition, 
OR or AND ) NOT, ( 


simple- eee 


OR, AND, ( 


simple- mae 
OR, NOT, AND, ( NOT, ( 
simple- ene 
No OR, AND, ) 


The element pair OR NOT is permissible but the pair NOT OR is not permissible. NOT ( is permissible 
but NOT NOT is not permissible. 
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Abbreviated Combined Relation Conditions 

When simple or negated simple relation conditions are combined with logical connectives in a 

consecutive sequence such that a succeeding relation condition contains a subject or subject and rela- 

tional operator that is common with the preceding relation condition, and no parentheses are used 

within such a consecutive sequence, any relation condition except the first may be abbreviated by: 
1. The omission of the subject of the relation condition. 


2. The omission of the subject and relational operator of the relation condition. 


General Format: 


| 


relation-condition ‘ nl \ [NOT]  [relational-operator] object ey 


Within a sequence of relation conditions, both of the above forms of abbreviation may be used. The 
effect of using such abbreviations is as if the last preceding stated subject were inserted in place of 
the omitted subject, and the last stated relational operator were inserted in place of the omitted rela- 
tional operator. The result of such implied insertion must comply with the rules of table 7-2. This inser- 
tion of an omitted subject and/or relational operator terminates once a complete simple condition is 
encountered within a complex condition. 


In abbreviated relation conditions, an arithmetic expression beginning with a left parenthesis may not 
be the object of an abbreviation where both the subject and the relational operator are implied. An 
arithmetic expression may be the object if it does not begin with a left parenthesis or if the relational 
operator is stated. 


The interpretation applied to the use of the word NOT in an abbreviated combined relation condition 
is as follows: 


1. If the word immediately following NOT is GREATER, '>', LESS, '’<’, EQUAL, or ‘=’, 
then the NOT participates as part of the relational operator. 


2. The NOT is interpreted as a logical operator and the implied insertion of subject or relational 
operator results in a negated relation condition. 


Examples of abbreviated combined and negated combined relation conditions and expanded equivalents 
follow. 
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Examples: 


Abbreviated Combined 
Relation Condition 


a > b AND NOT < c OR d 
a NOT EQUAL b OR c 

NOT a = b OR ec 

NOT (a GREATER b OR < c) 


NOT (a NOT > b AND c 
AND NOT 4d) 


IF A = BORC 


IF A < B OR = C OR D 


Condition Evaluation Rules 


Procedure Division 


Expanded Equivalent 
((a > b) AND (a NOT < c)) OR (a NOT < qd) 
(a NOT EQUAL b) OR (a NOT EQUAL c) 
(NOT (a = b)) OR (a = c) 
NOT ((a GREATER b) OR (a < c)) 
NOT (((a NOT > b) AND (a NOT > c)) 


AND (NOT (a NOT > d)))) 
IF A = BORA=C 
IF A < BORA = CORA = D 


Parentheses may be used to specify the order in which individual conditions of complex conditions are 
to be evaluated when necessary to depart from the implied evaluation precedence. Conditions within 
parentheses are evaluated first, and, within nested parentheses, evaluation proceeds from the least inclu- 
sive condition to the most inclusive condition. When parentheses are not used, or parenthesized condi- 
tions are at the same level of inclusiveness, the following hierarchical order of logical evaluation is im- 
plied until the final truth value is determined. 


1. Values are established for arithmetic expressions. Refer to Formation and Evaluation Rules in 


this section. 


2. Truth values for simple conditions are established in the following order: 


relation (following the expansion of any abbreviated relation condition) 


class 
condition-name 
switch-status 
sign 


3. Truth values for negated simple conditions are established. 


4. Truth values for combined conditions are established: .IN +5 P AND logical operators, fol- 


lowed by 


~ OR logical operators. 
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Example: 


To evaluate 
Ci AND (C2 OR NOT (C3 OR C4) 


reduce as follows: 
let C5 equal "C3 OR C4”, resulting in Cl AND (C2 OR NOT C5) 


let C6 equal “C2 OR NOT CS", resulting in Cl AND C6. 
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In the statement descriptions that follow, several phrases appear frequently: the ROUNDED eDIMaSE 
the SIZE ERROR phrase, and the CORRESPONDING phrase. 


In the following discussion, a resultant-identifier is that igeuHe associated with a result of an arith- 
metic operation. 


ROUNDED Phrase 


If, after decimal point alignment, the number of places in the fraction of the result of an arithmetic 
operation is greater than the number of places provided for the fraction of the resultant-identifier, trun- 
cation is relative to the size provided for the resultant-identifier. When rounding is requested, the abso- 
lute value of the resultant-identifier is increased by adding a one into the low-order digit whenever the 
absolute value of the next least significant digit of the intermediate data item is greater than or equal 
to five. 


When the low-order integer positions in a resultant-identifier are represented by the character 'P’ in 
the picture for that resultant-identifier, rounding or truncation occurs relative to the rightmost integer 
position for which storage is allocated. 


SIZE ERROR Phrase 


If, after decimal point alignment, the absolute value of a result exceeds the largest value that can be 
contained in the associated resultant-identifier, a size error condition exists. Division by zero always 
causes a size error condition. The size error condition applies only to the final results of an arithmetic 
operation and does not apply to intermediate results, except in the MULTIPLY and DIVIDE state- 
ments, in which case the size error condition applies to the intermediate results as well. If the 
ROUNDED phrase is specified, rounding takes place before checking for size error. When a size error 
condition occurs, the subsequent action depends on whether or not the SIZE ERROR phrase is 
specified. 


1. If the SIZE ERROR phrase is not specified and a size error condition occurs, the resultant val- 
ue is stored in each of the receiving fields left truncated where required. Values of resultant- 
identifier(s) for which no size error condition occurs are unaffected by size errors that occur 
for other resultant-identifier(s) during execution of this operation. 


If division by zero is the cause of the size error condition, the execution of the program is 
abnormally terminated. 


2. If the SIZE ERROR phrase is specified and a size error condition occurs, then the values of 
resultant-identifier(s) affected by the size errors are not altered. Values of resultant-identifier(s) 
for which no size error condition occurs are unaffected by size errors that occur for other re- 
sultant-identifier(s) during execution of this operation. After completion of the execution of this 
operation, the imperative statement in the SIZE ERROR phrase is executed. 


For the ADD statement with the CORRESPONDING phrase and the SUBTRACT statement 
with the CORRESPONDING phrase, if any of the individual operations produces a size error 
condition, the imperative statement in the SIZE ERROR phrase is not executed until all of the 
individual additions and subtractions are completed. 
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CORRESPONDING Phrase 


For the. purpose of this discussion, dl and d2 must each be identifiers that refer to group items. A 
pair of data items, one from dl and one from d2 correspond if the following conditions exist: 


1. A data item in dI and a data item in d2 are not designated by the key word FILLER and 
have the same data-name and the same qualifiers up to, but not including, dl and d2. 


2. At least one of the data items is an elementary data item in the case of a MOVE statement 
with the CORRESPONDING phrase. Both of the data items are elementary numeric data items 
in the case of the ADD statement with the CORRESPONDING phrase or the SUBTRACT 
statement with the CORRESPONDING phrase. 


3. The description of dl and d2 must not contain level-number 66, 77, or 88 or the USAGE IS 
INDEX clause. 


4. A data item that is subordinate to dl or d2 and contains a REDEFINES, RENAMES, OC- 
CURS, or USAGE IS INDEX clause is ignored, as well as those data items subordinate to the 
data item that contains the REDEFINES, OCCURS, or USAGE IS INDEX clause. However, 
di and d2 may have REDEFINES or OCCURS clauses or be subordinate to data items with 
REDEFINES or OCCURS clauses. Refer to the OCCURS clause in section 6. 


Refer to the ADD statement in this section for an example of CORRESPONDING. 
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The following paragraphs describe general rules for statement formats. 
Arithmetic Statements 


The arithmetic statements are ADD, COMPUTE, DIVIDE, MULTIPLY, and SUBTRACT and have 
several common features: 


1. The data descriptions of the operands need not be the same; any necessary conversion and 
decimal point alignment is supplied throughout the calculation. 


2. The maximum size of each operand is 18 decimal digits. 


.3. Each arithmetic operation is evaluated using an intermediate data item for the result of the op- 
eration. The contents of the intermediate data item are moved to the resultant-identifier accord- 
ing to the rules for the MOVE statement. Rounding is performed and the size error condition 
is determined only during this MOVE operation. Refer to Intermediate Data Item, Rounded 
Phrase, Size Error Phrase, and the MOVE Statement in this section for additional information. 


Overlapping Operands 


When a sending and a receiving item in an arithmetic statement or an INSPECT, MOVE, SET, 
STRING, or UNSTRING statement share a part, but not all, assigned storage areas, the result of the 
execution of such a statement is undefined. 


Multiple Results in Arithmetic Statements 


The ADD, COMPUTE, DIVIDE, MULTIPLY, and SUBTRACT statements may have multiple results. 
Such statements behave as though they had been written in the following ways: 


‘.1. A statement which,.performs all arithmetic necessary to arrive at the result to be stored in the 
receiving items, and stores that result in a temporary storage location. 


2. A sequence of statements transferring or combining the value of this temporary location with 
a single result. These statements are considered to be written in the same left-to-right sequence 
in which the multiple results are listed. 

- The result of the statement 
ADD A, B, C, TO C, D(C), E 


is equivalent to: 


ADD A, B, C GIVING TEMP 
ADD TEMP TO C 

ADD TEMP TO D(C) 

ADD TEMP TO E 


where TEMP is an intermediate result item provided by the compiler. 
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Incompatible Data 


Except for the class condition (refer to Class Condition in this section), when the contents of a data 
item are referenced in the PROCEDURE DIVISION and the contents of that data item are not com- 
patible with the class specified for that data item by the PICTURE clause, then the result of such a 
reference is undefined. 


Numeric Functions 


A numeric function can be specified as a sending operand in an arithmetic statement, a MOVE state- 
ment, or ah arithmetic expression. 


OFFSET Function 
The OFFSET function represents the number of characters preceding a data item in a logical record. 


General Format: 


OFFSET (data-name) 
Syntax Rules: . 
1. Data-name must be described in the DATA DIVISION. 
2. Data-name can be qualified. 
General Rules: 
1. OFFSET (data-name) represents the. number of characters preceding the data item referenced 
by data-name in the logical record in which data-name is defined. If data-name references a 
packed numeric data item not aligned on a character boundary, OFFSET (data-name) represents 
the number of characters preceding the character in which data-name begins. If data-name is 
a record-name or a 77-level item, the value of OFFSET (data-name) is zero. 
2. The internal representation of OFFSET §is. the same as that. of an index data item; that is, it 


occupies the same space and has the same alignment as an item declared PICTURE S$9(7) US- 
AGE IS COMPUTATIONAL. 
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The verbs available for use with the COBOL74 compiler are categorized below. Although the word 
IF is not a verb in the English language, it is utilized as such in the COBOL74 language. Its occurrence 
is a vital feature in the PROCEDURE DIVISION. 
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Category 


Arithmetic 


Compiler Directing 


Conditional 


Data Movement 


Ending 


Verb 


ADD 
COMPUTE 
DIVIDE 
INSPECT 
MULTIPLY 
SUBTRACT 


COPY 
USE 


ADD 
CALL 
COMPUTE 


MULTIPLY 
READ 
RECEIVE 
RETURN 
REWRITE 
SEARCH 
START 
STRING 
SUBTRACT 
UNSTRING 
WRITE 


ACCEPT 
INSPECT 
MOVE 
STRING 
UNSTRING 


STOP 


Option 


TALLYING 


SIZE ERROR 
OVERFLOW 
SIZE ERROR 
INVALID KEY 
SIZE ERROR 


SIZE ERROR 

END or INVALID KEY 
NO DATA 

END 

INVALID KEY 


INVALID KEY — 

OVERFLOW 

SIZE ERROR 

OVERFLOW 

INVALID KEY or END-OF-PAGE 


DATE, DAY, or TIME 
REPLACING 
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Category Verb Option 


Input-Output ACCEPT identifier 
. CLOSE | 
DELETE 
DISABLE 
DISPLAY 
ENABLE 
OPEN 
READ 
RECEIVE 
REWRITE 
SEND 
START 
STOP literal 
WRITE 


Inter-Program CALL 
Communication CANCEL 


Ordering MERGE 
RELEASE 
RETURN 
SORT 


Procedure Branching ALTER 
CALL 
EXIT 
GO TO 
~PERFORM 


Table Handling SEARCH 
SET 


SPECIFIC VERB FORMATS 


The specific verb formats, together with a detailed discussion of the restrictions and limitations associ- 
ated with each, appear on the following pages in alphabetic sequence. 
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The ACCEPT statement causes low volume data to be made available to the specified data item. 


General Format: 


Format 1: 


ACCEPT identifier | FROM { mnemonic-name } | 


Format 2: 


ACCEPT identifier FROM 


Syntax Rules: 


1. The mnemonic-name in Format 1 must also be specified in the SPECIAL-NAMES paragraph 
of the ENVIRONMENT DIVISION and must be associated with the hardware-name ODT. 


2. An item declared in the LINKAGE SECTION cannot be used with the ACCEPT statement. 
General Rules: 


Format 1: 


1. The ACCEPT statement causes the transfer of data from the hardware device. This data re- 
places the contents of the data item named by the identifier. 


2. The maximum number of characters that can be transferred is unlimited. 
3. If the FROM phrase is not given, the device that is used is the ODT. 


4. When the operator enters the AX message in response to the ACCEPT, continuation of the 
object program begins with the next executable statement in sequence. 


Format 2: 


5. The ACCEPT statement causes the information requested to be transferred to the data item 
specified by identifier according to the rules of the MOVE statement. 
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DATE, DAY, and TIME, are conceptual data 
items and are not described in the COBOL74 program. Also, they cannot be the operand in 
a MOVE or DISPLAY statement. 


6. DATE is composed of the data elements year of century, month of year, and day of month. 
The sequence of the data element codes are from high order to low order (left to right), year 
of century, month of year, and day of month (YYMMDD). July 1, 1968 would be expressed 
as 680701. DATE, when accessed by a COBOL74 program, behaves as that described in the 
COBOL74 program as an unsigned elementary numeric integer data item, six digits in length. 


7. DAY is composed of the data elements year of century and day of year. The sequence of the 
data element codes are from high order to low order (left to right) year of century, day of 
year (YYDDD). July 1, 1968 is expressed as 68183. DAY, when accessed by a COBOL74 pro- 
gram, behaves as if described in.a COBOL74 program as an unsigned elementary numeric inte- 
ger data item, five digits in length. 


8. TIME is composed of the data elements hours, minutes, seconds, and hundredths of a second, 
(HHMMSSTH). TIME is based on elapsed time after midnight on a 24-hour clock basis; 2:41 
p.m. is expressed as 14410000. TIME, when accessed by a COBOL74 program, behaves as if 
described in a COBOL74 program as an unsigned elementary numeric integer data item, eight 
digits in length. The minimum value of TIME is 00000000; the maximum value of TIME is 


23595990. 
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The ACCEPT MESSAGE COUNT statement causes the number of messages in a queue to be made 
available. 


General Format: 


ACCEPT — cd-name MESSAGE COUNT 


Syntax Rules: 
1. Cd-name must reference an input CD. 
General Rules: 


1. The ACCEPT MESSAGE COUNT statement causes the MESSAGE COUNT field specified for 
cd-name to be updated to indicate the number of messages that exist in a queue. 


2. Upon execution of the ACCEPT MESSAGE COUNT statement, the contents of the area ~ 
specified by the communication description entry must contain the name of the symbolic queue 
to be tested. Testing the condition causes the contents of the data items referenced by data- 
name-10 (STATUS KEY) and data-name-11 (MESSAGE COUNT) of the area associated with 
the communication entry to be appropriately updated. Refer to the Communication Description 
(CD) in section 6. — 
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ADD 
The ADD statement causes two or more numeric operands to be summed and the result to be stored. 
General Format: 


Format I: 


identifier-1 , identifier-2 , ; 
ADD ... TO  identifier-m [ ROUNDED ] 
literal-1 , literal-2 


[ , identifier-n [ROUNDED ] ] 


[; ON SIZE ERROR imperative-statement ] 


Format 2: 
identifier-| identifier-2 , identifier-3 
ADD , 
literal-1 literal-2 , literal-3 
GIVING identifier-m [ROUNDED] [,, identifier-n [ ROUNDED]]... 
[; ON SIZE ERROR imperative-statement ] 
Format 3: 


CORRESPONDING 


ADD identifier-1 TO identifier-2 [ROUNDED] 


CORR 


[ ; ON SIZE ERROR imperative-statement ] 
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Syntax Rules: 


1. 


De 


3. 


In Formats 1 and 2, each identifier must refer to an elementary numeric item, except that in 


Format 2 each identifier following the word GIVING must refer to either an elementary numer- 


ic item or an elementary numeric edited item. In Format 3, each identifier must refer to a group 
item. 


Each literal must be a numeric literal. 


CORR is an abbreviation for CORRESPONDING. 


General Rules: 


iF 


Additional rules and explanations relative to this statement are given in the appropriate 
paragraphs. Refer to Intermediate Data Item, CORRESPONDING Phrase, ROUNDED Phrase, 
SIZE ERROR Phrase, Arithmetic Statements, Overlapping Operands, and Multiple Results in’ 
Arithmetic Statements in this section. 


. If Format 1 is used, the values of the operands preceding the word TO are added together, 


then the sum is added to the current value of identifier-n storing the result immediately into 
identifier-n. This process is repeated, respectively, for each operand following the word TO. 


. If Format 2 is used, the values of the operands preceding the word GIVING are added together, 


then the sum is stored as the new value of each identifier-m, identifier-n, ...; the resultant-iden- 
tifiers. | 


. If Format 3 is used, data items in identifier-1 are added to and stored in corresponding data 


items in identifier-2. 


. The compiler ensures that enough places are carried so that significant digits are not lost during 


execution. 


Examples: 


Assume as initial values: X=2, Y=10, Z=15, TOT=50, and SUB=30. 


Format 1: 
ADD X TO TOT. results TOT = 52 
ADD X, Y, Z, TO TOT, SUB. results TOT=77, SUB=57 
Format 2: 
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ADD X, Y GIVING TOT. results TOT = 12 
ADD X, Y, Z GIVING TOT, SUB. results TOT =27, SUB=27 
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Format 3: 


For Format 3, assume the following structures have the initial value in parentheses. 


O1 NOW O1 LATER 
O2 AL "05 AL 
03 FO (8) 06 FO (10) 
03 RD (10) 06 XY (10) 
O02 ME (20) 05 AB (10) 
O02 HE (5) 05 HE (10) 


Therefore the statement 


ADD CORRESPONDING NOW TO LATER. 
results in: 


02 LATER 


The only data items whose values changed are FO and HE. 
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The ALTER statement modifies a predetermined sequence of operations. 


General Format: 


ALTER procedure-name-!| TO [PROCEED TO] procedure-name-2 


[ , procedure-name-3 TO [PROCEED TQ] procedure-name-4 | state 


Syntax Rules: 


1. Each procedure-name-1, procedure-name-3, ..., is the name of a paragraph that contains a sin- 
gle sentence consisting of a GO TO statement without the DEPENDING phrase. 


2. Each procedure-name-2, procedure-name-4, ..., is the name of a paragraph or section in the 
PROCEDURE DIVISION. 


General Rules: 


1. Execution of the ALTER statement modifies the GO TO statement in the paragraph named 
procedure-name-1, procedure-name-3, ..., so that subsequent executions of the modified GO TO 
statements cause transfer of control to procedure-name-2, procedure-name-4, ..., respectively. 
Modified GO TO statements in independent segments may, under some circumstances, be re- 
turned to initial states. Refer to Independent Segments in this section. 


All other uses of the ALTER statement are valid and are performed even if procedure-name- 
1, procedure-name-3 is in an overlayable fixed segment. Refer to Segmentation in this section. 
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CALL 


The CALL statement causes control to be transferred from one object program to another, within the 
run unit. 


General Format: 


Format 1: 
identifier-1 
CALL - [USING data-name-1 [, data-name-2] ... ] 
literal-] 
{[; ON. OVERFLOW imperative-statement ] 
Format 2: 


Format 3: 


Format 4: 
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Syntax Rules: 
Format 1 Only: 


1. Literal-1 must be a nonnumeric literal in the form "B” for a single file name, "B/C" for a 
multi-file-id and file-id, "B ON A” for a single file on a specific disk, or "B/C ON A” for 
a multi-file-id and file-id on a specific disk. Refer to the B 1000 Systems Software Operation 
Guide, Volume 1, for the formation of file names. 


2. Identifier-1 must be defined as an alphanumeric data item. 


3. The USING phrase is included in the CALL statement only if there is a USING phrase in the 
PROCEDURE DIVISION header of the called program. The number of operands in each 
USING phrase must be identical. 


4, Each of the operands in the USING phrase must have been defined as a data item in the FILE 
SECTION, WORKING-STORAGE SECTION, COMMUNICATION SECTION, or LINKAGE 
SECTION, and must have a level-number of 01 or 77. Data-name-1, data-name-2, ..., may be 
qualified when refering to data items defined in the FILE SECTION or the COMMUNICA- 
TION SECTION. 


General Rules: 


Format 1 Only: 


1. The program whose name is specified by the value of literal-1 or identifier-1 is the called pro- 
gram; the program in which the CALL statement appears is the calling program. 


2. The execution of a CALL statement causes control to pass to the called program. 


3. A called program is in initial state the first time it is called within a run unit and the first time 
it is called after.a CANCEL operation to the called program. 


On all other entries into the called program, the state of the program remains unchanged from 


the state when last exited by an EXIT PROGRAM statement. This includes all data fields, the 
status and positioning of all files, and all alterable switch settings. 
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4. If, during the execution of a CALL statement, it is determined that the available portion of 
object time memory is incapable of accommodating the program specified in the CALL state- 
ment, and the ON OVERFLOW phrase is specified, no action is taken and the imperative-state- 
ment is executed. 


If the above condition exists and the ON OVERFLOW phrase is not specified, the run unit 
is suspended until such time as the necessary portion of object time memory to accommodate 
the program specified in the CALL statement is available. 


5. Called programs may contain CALL statements. However, a called program must not contain 
a CALL statement that directly or indirectly calls the calling program. Program A can CALL 
Program B, and Program B can CALL Program C, but Program C cannot CALL A or B, 
and Program B cannot CALL A. 


6. The data-names, specified by the USING phrase of the CALL statement, indicate those data 
items available to a calling program that may be referred to in the called program. The order 
of appearance of the data-names in the USING phrase of the CALL statement and the USING 
phrase in the PROCEDURE DIVISION header is critical. Corresponding data-names refer to 
a single set of data which is available to the called and calling programs. The correspondence 
is identified by position, not by name. In the case of index-names, no such correspondence is 
established. Index-names in the called and calling programs always refer to separate indices. 


7. The CALL statement may appear anywhere within a segmented program. When a CALL state- 
ment appears in a section with a segment-number greater than or equal to 50, that segment 
is in the last used state when the EXIT PROGRAM statement returns control to the calling 
program. 

Example of Format 1: 
Assume the called program name is PROGONE, and the PROCEDURE DIVISION header is: 
PROCEDURE DIVISION USING A, B, C. 


The calling program contains: 


CALL "PROGONE” USING X, Y, A. 
ADD X, Y, A GIVING TOTAL. 


When the CALL is executed a correspondence is set up between the two sets of data-names such that 
(A and X), (B and Y), and (C and A) refer to the same data items regardless of the fact that both 
sets contain an A as a data-name. If PROGONE changes the values of A, B; and C to new values, 
these data items are available to the calling program in X, Y, and A, respectively. 

When PROGONE is exited by a CANCEL or EXIT PROGRAM, control returns to: 


ADD X, Y, A GIVING TOTAL. 
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CANCEL 


The CANCEL statement releases the memory areas occupied by the referred to program. 


General Format: 


identifier-1 , identifier-2 


CANCEL 


[Leet 3 


literal-1 , literal-2 


Syntax Rules: 


i 


Literal-1, literal-2, ..., must be a nonnumeric literal in the form "B” for a single file name, 
"B/C” for a multi-file-id and file-id, "B ON A” for a single file on a specific disk, or "B/C 
ON A” for a multi-file-id and file-id on a specific disk. Refer to the B 1000 Systems Software 
Operation Guide, Volume 1, for the formation of file names. 


Identifier-1, identifier-2, ..., must each be defined as an alphanumeric data item such that val- 
ues can be a program name. 


General Rules: 


L, 


Subsequent to the execution of a CANCEL statement, the program that has been cancelled 
ceases to have any logical relationship to the run unit in which the CANCEL statement appears. 
A subsequently executed CALL statement naming the same program results in that program 
being initiated in the initial state. 


. A program named in the CANCEL statement must not refer to any program that has been 


called and has not yet executed an EXIT PROGRAM statement. 


. A logical relationship to a cancelled subprogram is established only by execution of a subse- 


quent CALL statement. 


. A called program is cancelled either by being referred to as the operand of a CANCEL state- 


ment or by the termination of the run unit of which the program is a member. 


. No action is taken when a CANCEL statement is executed naming a program that has not been 


called in this run unit or has been called and is, at present, cancelled. Control passes to the 
next statement. : 
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The CLOSE statement terminates the processing of a file, or a reel/unit of a file, and also may pe 
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the disposition of the file and the device to which it is assigned. 


General Format: 


Syntax Rules: 


CLOSE 


bf 


file-name-1 


file-name-2 


{REEL [ WITH NO REWIND] 


UNIT FOR REMOVAL 
NO REWIND d 
WITH 


LOCK 


i REEL WITH NO REWIND 
UNIT § [FOR REMOVAL 
NO REWIND 7 


WITH LOCK — 


1. The REEL or UNIT phrase must only be used for sequential files. 


2. The files referenced in the CLOSE statement need not all have the same organization or access. 


General Rules: 


Except where otherwise stated in the following general rules, the terms reel and unit are synonymous 


and completely interchangeable in the CLOSE statement. 
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1. A CLOSE statement may only be executed for a file in an open mode. 


2. For the purpose of showing the effect of various types of CLOSE statements as applied to 


various storage media, all files are divided into the following categories: 


a. Sequential non-reel/unit. A sequential file whose input or. output medium is such that the 
concepts of rewind and reel/unit have no meaning. This category includes mass storage 
files. A CLOSE statement executed for a non-reel/unit file may affect the disposition of 
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the device to which it is assigned. However, the assignment and control of the physical 
device on which certain non-reel/unit files (including mass storage files) reside, is regarded 
to be the exclusive right of the operating system. Consequently, CLOSE statements 
executed for these files affect only the disposition and association of the physical file with 


the logical file, not the disposition of the physical device. 


b. Sequential single-reel/unit. A sequential file that is entirely contained on one reel/unit. 


c. Sequential multi-reel/unit. A sequential file that is contained on more than one reel/unit. 


d. Indexed and Relative Files. Indexed and Relative files are labeled mass storage files. 


3. The results of executing each type of CLOSE for each category of file are summarized in table 


7T- 


T 
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3. 


able 7-3. Relationship of Categories of Files and Formats of the CLOSE Statement 


File Category 


CLOSE Sequential! Sequential Indexed & 
Statement Sequential Single- Multi- — Relative 
Format Non-Reel/Unit | Reel/Unit Reel/Unit Files 


CLOSE 


: CH 
CLOSE WITH LOCK C.E,LJ C,G.E,LJ |CG.E.ALJ|  CILE 
CLOSE WITH NO REWIND C,B,A,H 


CLOSE REEL/UNIT 


CLOSE REEL/UNIT F,D,G,J 
FOR REMOVAL 


CLOSE REEL/UNIT 


WITH NO REWIND 
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The definitions of the symbols in the table are given in the following pages. Where the definition de- 
pends on whether the file is an input, output, or input-output file, alternate definitions are given; other- 
wise, a definition applies to input, output, and input-output files. 
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‘A’ Previous Reels/Units Unaffected 


Input Files 


All reels/units in the file prior to the current reel/unit are processed according to the standard 
reel/unit swap procedure, except those reels/units controlled by a prior CLOSE REEL/UNIT 
statement. If the current reel/unit is not the last in the file, the reels/units in the file following 
the current one are not processed. 


Output Files: 


All reels/units in the file prior to the current reel/unit are processed according to the standard 
reel/unit swap procedure, except those reels/units controlled by a prior CLOSE REEL/UNIT 
statement. 


No Rewind of Current Reel 

The current reel/unit is left in its current position. 
Close File 

Input Files and TanteOubbal Files: 


If the file is positioned at the end and label records are specified | for the file, the labels are 
processed according to the standard label convention. 


If label records are specified, the label records must be present. Label records that are not 
specified are ignored. 


Closing operations are executed. If the file is positioned at the end and label records are not 
specified for the file, label processing does not take place, but other closing operations are 
executed. If the file is positioned other than at the end, the closing operations are executed, 
but there is no ending label processing. 


Output Files 


If label records are specified for the file, the labels are processed according to the standard 
label convention. The behavior of the CLOSE statement when label records are specified but 
not present, or when label records are not specified but are present, is undefined. Closing op- 
erations are executed. If label records are not specified for the file, label processing does not 
take place, but other closing operations are executed. 


‘Cl’ CLOSE FILE 


The CLOSE operation marks the logical file as closed. 


'D’ 


% 
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Reel/Unit Removal 

The current reel/unit is rewound and released to the system. However, the reel or unit may 
be accessed again, in its proper order of reels or units within the file, if a CLOSE statement 
without the REEL or UNIT phrase is subsequently executed for this file followed by the 
execution of an OPEN statement for the file. 

File Lock 

The logical file is marked so it cannot be reopened during execution of the program. If the 
file is a mass storage file, it is made a permanent file before being made unavailable. If the 
file is assigned to a tape device, the physical unit is made not ready. 

Close Reel/Unit 

Input Files: 

The following operations take place: 

1. A reel/unit swap. 


2. The standard beginning reel/unit label procedure is executed. 


The next executed READ statement for that file makes available the next data record on the 
new reel/unit. 


Output Files 

The following operations take place: 

1. The standard ending reel/unit label procedure is executed. 

2. A reel/unit swap. 

3. The standard pesinnie reel/unit label procedure is executed. 


The next executed WRITE statement that references that file directs the next logical data rec- 
ord to the next reel/unit of the file. 


Rewind 
The current reel is positioned at its physical beginning. 
File Retention 


The association between the logical file and the physical file is retained. Subsequent reopening 
of the file may not require the operating system to search for the physical file. 
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‘XxX’ Illegal 


This is an illegal combination of a CLOSE option and a file category. If the CLOSE statement 
specifies the REEL/UNIT phrase, the CLOSE statement has no effect, and the file is not 
closed. If the CLOSE statement does not specify the REEL/UNIT phrase, any optional dispo- 
sition is ignored, but the file is closed. 


4. If a file is in the open mode when a STOP RUN statement is executed, when a CANCEL state- 


ment is executed for the program containing that file, or when an abnormal termination occurs, 
the action taken is to close the file as if a simple CLOSE statement had been executed. 


. If the OPTIONAL phrase has been specified for the file in the FILE-CONTROL paragraph 


of the ENVIRONMENT DIVISION and the file is not present, the standard end-of-file process- 
ing is not performed for that file. 
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6. If a CLOSE statement without the REEL or UNIT phrase has been executed for a file, no other 
statement (except the SORT or MERGE statements with the USING or GIVING phrases) that 
references that file can be executed, either explicitly or implicitly, unless an intervening OPEN 
statement for that file is executed. 


7. The WITH NO REWIND, FOR REMOVAL 
MOVE phrases have no effect at object time if they do not apply to the storage media on which 


the file resides. 


8. The execution of a CLOSE statement has no effect upon the contents or the availability of the 
file record area. 
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The COMPUTE statement assigns to one or more data items the value of an arithmetic expression. 


General Format: 


COMPUTE identifier-l [ROUNDED] [ , identifier-2 [ROUNDED] ] da 


= arithmetic-expression EF ON SIZE ERROR imperative-statement ] 


Syntax Rules: 


1. Identifiers that appear only to the left of = must refer to either an elementary numeric item 
or an elementary numeric edited item. 


General Rules: 


1. Additional rules and explanations relative to this statement are given in the appropriate 
paragraphs. Refer to Intermediate Data Item, ROUNDED Phrase, SIZE ERROR Phrase, Arith- 
metic Statements, Overlapping Operands, and Multiple Results in Arithmetic Statements in this 
section. 


2. An arithmetic expression consisting of a single identifier or literal provides a method of setting 
the values of identifier-1, identifier-2, and so forth, equal to the value of the single identifier 
or literal. (Refer to Arithmetic Expressions in this section.) 


3. If more than one identifier is specified for the result of the operation (those identifiers preced- 
ing the equal sign), the value of the arithmetic expression is computed, and the resultant value 
is then stored as the new value of each successive identifier, such as identifier-1, identifier-2, 
and so on. 
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COPY 
The COPY statement incorporates text from a library into a COBOL74 source program. 


COBOL74 libraries contain library texts that are available to the compiler for copying at compile time. 
The effect of the interpretation of the COPY statement is to insert text into the source program, where 
it is treated by the compiler as part of the source program. Other than the use of dollar options, 
(NEW, DELETE, MERGE, and so forth; refer to section 11, COBOL74 Compiler Control), libraries 
must be created by means other than the COBOL74 compiler. 


Additionally, the COPY statement can replace all occurrences of a given literal, identifier, word or 
group of words in the library text, with alternate text, during the copying process. 


General Format: 


==pseudo-text-1= ==pseudo-text- == 
identifier-1 identifier-2 
| REPLACING ’ ) literal-1 literal-2 


word-1 word-2 


Syntax Rules: 


1. If more than one COBOL74 library is available during compilation, file-id must be qualified 
by the multi-file-id identifying the COBOL74 library in which the text associated with file-id 
resides. © 


Within one COBOL74 library, each file-id must be unique. 
File-id specifies the external identification of a file in the COBOL74 library. 


Multi-file-id specifies the external identification of a volume-id, or directory-id, which is the 
name of the COBOL74 library. 


2. The COPY statement must be preceded by a space and terminated by the separator period. If 
the COPY statement appears in a "debug line,” the word COPY cannot start in column 8. See 
section 10 in this manual. . 
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. Pseudo-text-1 must not be null, and may not consist solely of the character space(s) or of com- 


ment lines. Psuedo-text-1 represents one or more COBOL74 words. It may not consist of a por- 
tion of a COBOL74 word. 


. Pseudo-text-2 may be null. 


. Character-strings within pseudo-text-1 and pseudo-text-2 may be continued. However, both 


characters of the pseudo-text delimiter (—) must be on the same line. For more details refer 
to Indicator Area for continuation of lines, Section 3. 


. Word-1 or word-2 may be any single COBOL74 word. 


. A COPY statement may occur in the source program anywhere a character-string or a separator 
may occur, except that a COPY statement must not occur within a COPY statement nor in 
the library text. 


General Rules: 
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1. 


The compilation of a source program containing COPY statements is logically equivalent to 
processing all COPY statements prior to the processing of the resulting source program. 


. The effect of processing a COPY statement is that the library text associated with file-id is cop- 


ied into the source program, logically replacing the entire COPY statement, beginning with the 
reserved word COPY and ending with the punctuation character period, inclusive. 


. If the REPLACING phrase is not specified, the library text is copied unchanged. 


If the REPLACING phrase is specified, the library text is copied and each properly matched 
occurrence of pseudo-text-1, identifier-1, word-1, and literal-1 in the library text is replaced by 
the corresponding pseudo-text-2, identifier-2, word-2, or literal-2. 


. For purposes of matching, identifier-1, word-1, and literal-1 are treated as pseudo-text contain- 


ing only identifier-1, word-1, or literal-1, respectively. 


. The comparison operation that determines text replacement is explained in the following 


paragraphs. 


Any separator comma, semicolon and/or space(s) preceding the leftmost library text-word is 
copied into the source program. Starting with the leftmost library text-word and the first pseu- 
do-text-1, identifier-1, word-1, or literal-1 that was specified in the REPLACING phrase, the 
entire REPLACING phrase operand that precedes the reserved word BY is compared to an 
equivalent number of contiguous library text-words. 


10. 


11. 
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Pseudo-text-1, identifier-1, word-1, or literal-1 match the library text only if, the ordered se- 
quence of text-words that forms pseudo-text-1, identifier-1, word-1, or literal-1 is equal, charac- 
ter for character, to the ordered sequence of library text-words. For purposes of matching, each 
occurrence of a separator comma or semicolon in pseudo-text-1 or in the library text is consid- 
ered to be a single space, except when pseudo-text-1 consists solely of either a separator comma 
or semicolon, in which case it participates in the match as a text-word. Each sequence of one 
Or more space separators is considered to be a single space. 


If no match occurs, the comparison is repeated with each next successive pseudo-text-1, identifi- 
er-1, word-1, or literal-1, if any, in the REPLACING phrase until either a match is found or 
there is no next successive REPLACING operand. 


When all the REPLACING phrase operands have been compared and no match has occurred, 
the leftmost library text-word is copied into the source program. The next successive library 
text-word is then considered as the leftmost library text-word, and the comparison cycle starts 
again with the first pseudo-text-1, identifier-1, word-1, or literal-1 specified in the REPLAC- 
ING phrase. 


Whenever a match occurs between pseudo-text-1, identifier-1, word-1, or literal-1 and the li- 
brary text, the corresponding pseudo-text-2, identifier-2, word-2, or literal-2 is placed into the 
source program. The library text-word immediately following the rightmost text-word that par- 
ticipated in the match is then considered as the leftmost library text-word. The comparison cy- 
cle starts again with the first pseudo-text-1, identifier-1, word-1, or. literal-1 specified in the RE- 
PLACING phrase 


The comparison operation continues until the rightmost text-word in the library text has either 
participated in a match or been considered as a leftmost library text-word and participated in 
a complete comparison cycle. 


. A comment line occurring in the library text and pseudo- text-1 is interpreted, for purposes of 


matching, as a single space. Comment lines appearing in pseudo-text-2 and library text are cop- 
ied into the source program unchanged. 


. Debugging fines are permitted within library text and pseudo-text-2. Debugging lines are not 


permitted within pseudo-text-1; text-words within a debugging line participate in the matching 
rules as if the "D” did not appear in the indicator area. If a COPY statement is specified on 
a debugging line, then the text that is the result of the processing of the COPY statement ap- 
pears as though it were specified on debugging lines with the following exception. Comment 
lines in library text appear as comment lines in the resultant source program. 


. The text produced as a result of the complete processing of a COPY statement must not contain 


a COPY statement. 


. The syntactic accuracy of the library text cannot be independently determined. The syntactic 


accuracy of the entire COBOL74 source program cannot be determined until all COPY state- 
ments have been completely processed. 
Library text must conform to the rules for COBOL74 reference format.- 


For purposes of compilation, text-words, after replacement, are placed in the source program 
according to the rules for reference format. Refer to Field Definitions for reference format, 
section 3. 
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14. If file-id is specified and the optional multi-file-id and pack-id clauses are not present, the file- 
id is the internal name of the library text and the default external identification. 


Examples: The following items illustrate uses of the COPY statement. 
FD INV-FILE COPY "MASTER/INVENTORY ON MYPACK’”. 
FD PAYROLL COPY "LASTYR/PAYROLL” REPLACING "1979" BY "1980". 
COPY "INPUTFILE’”. 
COPY "SOFTWARE/FILE” REPLACING —MARK 10.0— BY —RELEASE 11.0-. 
COPY "THISFILE ON MYPACK” REPLACING AAA BY INPUT-DATA. 


COPY FILEFDS OF LIB ON USERI FROM 3500 to 4800. 
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DELETE 


The DELETE statement logically removes a record from a mass storage file. 


General Format: 


| 


DELETE filename RECORD [; INVALID KEY imperative-statement ] | 


Syntax Rules: 


1. 


af 


The INVALID KEY phrase must not be specified for a DELETE statement which references 
a file in sequential access mode. 


The INVALID KEY phrase must be specified for a DELETE statement which references a file 
not in sequential access mode and for which an applicable USE procedure is not specified. 


A DELETE statement cannot be used with a SORT or MERGE file or with a Sequential File. 


General Rules: 


1. 


The associated file must be open in the I-O mode at the time of the execution of the DELETE 
statement. Refer to the OPEN Statement in this section. 


. For files in the sequential access mode, the last input-output statement executed for file-name 


prior to the execution of the DELETE statement must have been a successfully executed READ 
statement. The record that was accessed by that READ statement is logically removed from the 
file. 7 


. For a file in random or dynamic access mode, if the file is Relative, the record identified by 


the Relative Key data item is deleted; if the file is Indexed, the record identified by the Prime 
Record Key is deleted. If the file does not contain the record specified by the key, an INVALID 
KEY condition exists. Refer to the Invalid Key condition in section 5. 


. After the successful execution of a DELETE statement, the identified record has been logically 


removed from the file and can no longer be accessed. The block control information, BCI, in- 
cluded at the start of each physical record block, is updated to show that the record slot occu- 
pied by the deleted record is now available to be reused when records are added to the file: 


. The execution of a DELETE statement does not affect the contents of the record area associ- 


ated with file-name. 


. The current record pointer is not affected by the execution of a DELETE statement. 


. The execution of the DELETE statement causes the value of the specified FILE STATUS data 


item, if any, associated with file-name to be updated. Refer to I-O Status in section 5S. 
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DISABLE 


The DISABLE statement inhibits data transfer between the specified output queue and destinations for 
output or between specified sources and input queue for input. 


General Format: 


INPUT [ TERMINAL ] identifier-1 


cd-name WITH KEY 


DISABLE 


OUTPUT literal-1 


Syntax Rules: 
1. Cd-name must reference an input CD when the INPUT phrase is specified. 
2. Cd-name must reference an output CD when the OUTPUT phrase is specified. 


3. Literal-1 or the contents of the data item referenced by identifier-1 must be defined as alphanu- 
meric, containing at least 1 but not more then 10 characters. 


General Rules: 


1. The DISABLE INPUT <cd-name> statement provides a logical disconnection between the 
Data Communication Subsystem and the specified sources or destinations. When this logical 
disconnection is already in existence, or is to be handled by some other means external to this 
program, the DISABLE statement is not required in this program. The logical path for the 
transfer of data between the COBOL74 programs and the Data Communication Subsystem is 
not affected by the DISABLE statement. 


When the logical disconnection specified by the DISABLE statement is already in existence, 
is to be handled by some means external to this program, or is denied, the status key data 
item in the area referenced by CD-name is updated. Refer to Communication Description 
Structure (CD) in section 6. 


2. When the INPUT phrase with the optional word TERMINAL is specified, input to a specific 
terminal is disabled. Only the contents of the data item referenced by data-name-7 (SYMBOLIC 
SOURCE) of the area referenced by cd-name are meaningful. 


3. When the INPUT phrase without the optional word TERMINAL is specified, the logical paths 
for all of the sources associated with the queue and subqueues specified by the contents of data- 
name-1 (SYMBOLIC QUEUE) through data-name-4 (SYMBOLIC SUB-QUEUE-3) of the area 
referenced by cd-name are deactivated. 


4. When the OUTPUT phrase is specified, the logical path for destination, or the logical paths 


for all destinations, specified by the contents of the data item referenced by data-name-5 (SYM- 
BOLIC DESTINATION) of the data referenced by cd-name are deactivated. 
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VERB FORMAT: DISABLE 


5. The KEY phrase provides a password facility. 


An additional area of interaction between the DISABLE and the Data Communication Subsys- 
tem is the password. Within the message is a 10-byte field which contains a character string. 
It is the option of an MCS (Message Control System), to compare the password specified by 
literal-1 or identifier-1 to a master password. The data referenced by literal-1 or identifier-1 
is transferred to the MCS according to the rules of the MOVE statement. The password is re- 
ceived in an alphanumeric data item 1 to 10 characters in length. 
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DISPLAY 


The DISPLAY statement causes low volume data to be transferred to an appropriate hardware device. 


General Format: 


| identifier-1 , identifier-2 
DISPLAY. 


| | literal-] | . literal-2 


[ UPON _mnemonic-name ] 


Syntax Rules: 


1. The mnemonic-name is associated with a hardware device in the SPECIAL-NAMES paragraph 
in the ENVIRONMENT DIVISION and must be associated with the hardware-name ODT. 


2. Each literal may be any figurative constant, except ALL. 
3. If the literal is numeric, then it must be an unsigned integer. 
4. DISPLAY cannot use an item declared in the LINKAGE SECTION. 


5. DISPLAY cannot use the conceptual data items DATE, DAY, TODAYS-DATE, TODAYS- 
NAME, TIMER AND TIME. -s 


6. DISPLAY cannot use an index data item. 
General Rules: 


1. The DISPLAY statement causes the contents of each operand to be transferred to the patawate 
device in the order listed. 


2. The maximum number of characters that can be transmitted is unlimited. 


3. If a figurative constant is specified as one of the operands, only a single occurrence of the fi-. 
gurative constant is displayed. 


4. When a DISPLAY statement contains more than one operand, the size of the sending item is 
the sum of the sizes associated with the operands, and the values of the operands are transfer- 
red in the sequence in which the operands are encountered. If the data transferred does not 
fit on one line, carriage returns and line feeds are supplied so that the data is extended to other 
lines of print. 


5. If the UPON phrase is not used, the device used is the ODT. 
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DIVIDE 


VERB FORMAT: DIVIDE 


The DIVIDE statement divides one numeric data item into others and sets the values of data items 
equal to the quotient and remainder. 


General Formats: 


Format 1: 


caaCE 


Format 2: 


Format 3: 


1168622 


( identifier- | 
DIVIDE INTO identifier-2 [ROUNDED | 


( literal-| 
[; identifier-3 [ ROUNDED ]]... 


[: ON SIZE ERROR imperative-statement ] 


ae 
DIVIDE .« 


BY ] aE 
] literal-1 


INTO ( Uliteral-2 
GIVING identifier-3 [ROUNDED ] 
[ | identifier-4 [ROUNDED] ]... 


[ ; ON SIZE ERROR imperative-statement | 


identifier-| BY ) identifier-2 
DIVIDE 


literal-1 into J literal-2 
GIVING identifier-3 [ ROUNDED ] 
REMAINDER identifier-4 


[ ; ON SIZE ERROR imperative-statement ] 
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Syntax Rules: 


1. 


om 


Each identifier must refer to an elementary numeric item, except that any identifier associated 
with the GIVING or REMAINDER phrase must refer to either an elementary numeric item or 
an elementary numeric edited item. 


Each literal must be a numeric literal. 


General Rules: 


1. 
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Additional rules and explanations relative to this statement are given in the appropriate 
paragraphs. Refer to Intermediate Data Item, Arithmetic Statements, Overlapping Operands, 
and Multiple Results in Arithmetic Statements in section 7. Also, refer to General Rules 4 
through 6 below for a discussion of the ROUNDED phrase and the SIZE ERROR parase as 
they ‘pertain to Format 3. 


. When Format 1 is used, the value of identifier-2 is divided by either the value of identifier- 


1 or literal-1. The value of the dividend (identifier-2) is replaced by this quotient; and similarly 
for identifier-1 or literal-1 and identifier-3, and so forth. 


. When Format 2 is used, the value of identifier-1 or literal-1 is divided by the value of identifier- 


2 or literal-2, and the result is stored in identifier-3, identifier-4, and so on. 


. Format 3 is used when a remainder from the division operation is desired, namely identifier- 


4. The remainder in COBOL74 is defined as the result of subtracting the product of the quo- 
tient (identifier-3) and the divisor from the dividend. If identifier-3 is defined as a numeric ed- 
ited item, the quotient used to calculate the remainder is an intermediate field which contains 
the unedited quotient. If ROUNDED is used, the quotient used to calculate the remainder is 

an intermediate field which contains the quotient of the DIVIDE statement, truncated rather 
than rounded. 


. In Format 3, the accuracy of the REMAINDER data item (identifier-4) is defined by the calcu- 


lation described above. Appropriate decimal alignment and truncation (not rounding) is per- 
formed for the content of the data item referenced by identifier-4, as needed. 


. When the ON SIZE ERROR phrase is used in Format 3, the following rules pertain: 


a. If the size error occurs on the quotient, no remainder calculation is meaningful. The con- 
tents of the data items referenced by both identifier-3 and identifier-4 remain unchanged. 


b. If the size error occurs on the remainder, the contents of the data items referenced by iden- 
tifier-4 remain unchanged. However, as with other instances of multiple results of arithme- 
tic statements, the user is responsible for performing the necessary analysis to determine 
which situation has actually occurred. 
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ENABLE 


The ENABLE statement allows data transfer between specified output queues and destinations for out- 
put or between specified sources and input queues for input. 


General Format: 


INPUT [ TERMINAL ] 


ENABLE 


identifier-1 
cd-name WITH KEY 


OUTPUT literal-] 


Syntax Rules: 
1. Cd-name must reference an input CD when the INPUT phrase is specified. 
2. Cd-name must reference an output CD when the OUTPUT phrase is specified. 


3. Literal-1 or the contents of the data item referenced by identifier-1 must be defined as alphanu- 
meric containing 1 to 10 characters, inclusive. 


General Rules: 


1. The ENABLE INPUT <cd-name> statement provides a logical connection between the Data 
Communication Subsystem and the specified sources or destinations. When this logical connec- 
tion is already in existence, or is to be handled by some other means external to this program, 
the ENABLE staternent is not required. The logical path for the transfer of data between the 
COBOL74 programs and the Data Communication Subsystem is not affected by the ENABLE 
statement. 


When the logical connection specified by the ENABLE statement is already in existence, (only 
if a RECEIVE is done instead), or is to be denied, the status key data item in the area refer- 
enced by CD-name is updated. Refer to the Communication Description Structure (CD) in sec- 
tion 6. 


2. The INPUT phrase with the optional word TERMINAL is used to ENABLE a previously 
disabled (DISABLE) logical path between the source and all associated queues and subqueues. 
Only the contents of the data item referenced by data-name-7 (SYMBOLIC SOURCE) of the 
area referenced by cd-name are meaningful. 


3. When the INPUT phrase without the optional word TERMINAL is specified, the logical paths 
for all of the sources associated with the queue and subqueues specified by the contents of data- 
name-! (SYMBOLIC QUEUE) through data-name-4 (SYMBOLIC SUB-QUEUE3) of the area 
referenced by cd-name are activated. 


4. When the OUTPUT phrase is specified, the logical path for destination, or the logical paths 


for all destinations, specified by the contents of the data item referenced by data-name-5 (SYM- 
BOLIC DESTINATION) of the area referenced by cd-name are activated. 
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5. The KEY phrase provides a password facility. 


An additional area of interaction between the ENABLE and the Data Communication Subsys- 
tem is the password. Within the message is a 10-byte field which contains a character string. 
It is the option of the MCS (Message Control System), to compare the password specified by 
literal-1 or identifier-1 to a master password. The data referenced by literal-1 or identifier-1 
is transferred to the MCS according to the rules of the MOVE statement. The password is re- 
ceived in an alphanumeric data item of 1 to 10 characters in length. 
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VERB FORMAT: EXIT 


EXIT 


The EXIT statement provides a means of documenting the logical end point for a series of sections 
or paragraphs that may be executed under the control of a PERFORM statement. 


General Format: 


| EXIT. 


Syntax Rules: 
1. The EXIT statement must appear in a sentence alone. 
2. The EXIT sentence must be the only sentence in the paragraph. 
General Rules: 
1. An EXIT statement serves only to enable the user to assign a procedure-name to a given point 


in a program. Such an EXIT) statement has no other effect on the compilation or execution 
of the program. 
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EXIT PROGRAM 
'The EXIT PROGRAM statement marks the logical end of a called program. 


General Format: 


| EXIT PROGRAM. | 


Syntax Rules: 
1. The EXIT PROGRAM statement must appear in a sentence alone. 


2. The EXIT PROGRAM sentence must be the only sentence in the paragraph. 


General Rules: 


1. An execution of an EXIT PROGRAM statement in a called program causes control to be 
passed to the calling program. If the program is not called, control passes through the EXIT 


PROGRAM statement to the first sentence of the next, paragraph. 
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GO TO 


The GO TO statement causes control to be transferred from one part of the PROCEDURE DIVISION 
to another. 


General Format: 


Format |: 
GO TO [procedure-name-| ] 
Format 2: 


GO TO procedure-name-| ie procedure-name-2 | ..., procedure-name-n 


DEPENDING ON identifier 


Syntax Rules: 


l. 


Identifier is the name of a numeric elementary item described without any positions to the right 
of the assumed decimal point. 


When a paragraph is referenced by an ALTER statement, that paragraph can consist only of 
a paragraph header followed by a Format 1 GO TO statement. 


A Format 1 GO TO statement, without procedure-name-1, can only appear in a single statement 
paragraph. 


If a GO TO statement, represented by Format 1, appears in a consecutive sequence of 
imperative statements within a sentence, it must appear as the last statement in that sequence. 


General Rules: 


1. 


When a GO TO statement, represented by Format | is executed, control is transferred to proce-' 
dure-name-! or to another procedure-name if the GO TO statement has been modified by an 
ALTER statement. 


. If procedure-name-1 is not specified in Format 1, an ALTER statement, referring to the GO 


TO. statement, must be executed prior to the execution of this GO TO statement. Otherwise, 
the program is abnormally terminated. 


. When a Format 2 GO TO statement is executed, control is transferred to the procedure-name 


whose ordinal position in the list following the GO TO corresponds to the value of the identifier 
being 1, 2, ..., n. If the value of the identifier is anything other than the positive or unsigned 
integers 1, 2, ..., n, then no transfer occurs and control passes to the next statement in the 
normal sequence for execution. 
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IF 


The IF statement causes a condition to be evaluated. The subsequent action of the object program de- 
pends on whether the value of the condition is TRUE or FALSE. . 


General Format: 


IF condition; 


statement: | | ; ELSE statement-2 
| 


- ELSE NEXT SENTENCE} 


Ser 


NEXT SENTENCE 


Syntax Rules: 


1. Statement-1 and statement-2 represent either an imperative statement or a conditional statement, 
and either may be followed by a conditional statement. 


2. The ELSE NEXT SENTENCE phrase may be omitted if it immediately precedes the terminal 
period of the sentence. 


General. Rules: 
1. When an IF statement is executed, the following transfers of control occur: 


a. If the condition is TRUE, statement-1 is executed, if specified. If statement-1 contains a 
procedure branching or conditional statement, control is explicitly transferred in accor- 
dance with the rules of that statement. Refer to Categories of Statements in this section. 
If statement-1 does not contain a procedure branching or conditional statement, the ELSE 
phrase, if specified, is ignored and control passes to the next executable sentence. 


b. If the condition is TRUE and the NEXT SENTENCE phrase is specified instead of state- 
ment-1, the ELSE phrase, if specified, is ignored and control passes to the next executable 
sentence. 


c. If the condition is FALSE, statement-1 or NEXT SENTENCE is ignored, and statement- 
2, if specified, is executed. If statement-2 contains a procedure branching or conditional 
statement, control is explicitly transferred in accordance with the rules of that statement. 
Refer to Categories of Statements in this section. If statement-2 does not contain a proce- 
dure branching or conditional statement, control passes to the next executable sentence. 
If the ELSE statement-2 phrase is not specified, statement-1 is ignored and control passes 
to the next executable sentence. 


d. If the condition: is FALSE, and the ELSE NEXT SENTENCE phrase is specified, state- 
ment-1 is ignored, if specified, and control passes to the next executable sentence. 


2. Statement-1 and/or statement-2 may contain an IF statement. In this case, the IF statement iS: 
nested. The Mark 11.0 B 1000 COBOL74 allows 45 nested IF statements. 


IF statements within IF statements may be considered as paired IF and ELSE combinations, 
proceeding from left to right. Thus, any ELSE encountered is considered to apply to the imme- . 
diately preceding IF that has not been already paired with an ELSE.. 
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VERB FORMAT: INSPECT 


INSPECT 


The INSPECT statement provides the ability to tally (Format 1), replace (Format 2), or.tally and re- 
place (Format 3) occurrences of single characters or groups of characters in a data item. 


General Formats: 


Format I: 


INSPECT identifier-1 TALLYING 


| j ALL ea : ' rere 
, identifier-2 FOR ene literal-I rene, INITIAL | ee 
l’ CHARACTERS | —— onan | 


|e 


Format 2: 


Lo : a = | 
identifier-6 BEFORE ae identifier-7 | 
Ane ' literal-4 Hem } wat literal-5 | 


literal-4 


literal-3 


~~, ee 


( Peak penis identifier-5 , § identifier-6 BEFORE j identitier-7 | | 
| LEADING ‘. ‘ \ BY \ i AFTER \ INITIAL Viiteras f | Bang 


i; INSPECT identifier-] REPLACING 


Format 3: 


ALL identifier-3 preg a 
, identifier-2 F =) LEADING ree H aErER’ poi ee 


we ee 


| CHARACTERS 


REPLACING 


CHARACTERS BY rane a \ arTER INITIAL identifier-7 \] 


AFTER | literal-5 


INSPECT identifier-l1 TALLYING ‘ 
literal-4 


ALL 7 . | ] 
{ LEADING | ae BY identifier-6 BEFORE INITIAI identitier-7 | | 
SigGae > -) literal-3 —— | literal-4 AFTER “ Viiteral-s 9 f | ee eae 


Le em et 
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Syntax Rules: 


All Formats 


1. 


3. 


Identifier-1 must reference either a group item or any category of elementary item, described 
(either implicitly or explicitly) as usage is DISPLAY. 


. Identifier-3 ... identifier-n must reference either an elementary alphabetic, alphanumeric, or nu- 


meric item described (either implicitly or explicitly) as usage is DISPLAY. 


Each literal must be nonnumeric and may be any figurative constant, except ALL. 


Formats | and 3 only 


4. Identifier-2 must reference an elementary numeric data item. 


D. 


If either literal-1 or literal-2 is a figurative constant, the figurative constant refers to an implicit 
one character data item. 


Formats 2 and 3 only 


6. 


The size of the data referenced by literal-4 or identifier-6 must be equal to the size of the data 
referenced by literal-3 or identifier-5. When a figurative constant is used as literal-4, the size 
of the figurative constant is equal to the size of literal-3 or the size of the data item referenced 
by identifier-5. 


. When the CHARACTERS phrase is used, literal-4, literal-5, or the size of the dala item refer- 


enced by identifier-6, identifier-7 must be one character in length. 


. When a figurative constant is used as literal-3, the data referenced by literal-4 or identifier-6 


must be one character in length. 


General Rules: 


1. 


2 
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Inspection (which includes the comparison cycle, the establishment of boundaries for the BE- 
FORE or AFTER phrase, and the mechanism for tallying and/or replacing) begins at the left- 
most character position of the data item referenced by identifier-1, regardless of class, and pro- 
ceeds from left to right to the rightmost character position as described in General Rules 4 
through 6 which follow. If identifier-1 is signed, the sign character is not inspected. 


For use in the INSPECT statement, the contents of the data item referenced by identifier-1, 
identifier-3, identifier-4, identifier-5, identifier-6, or identifier-7 are treated as follows: 


a. If any of identifier-1, identifier-3, identifier-4, identifier-5, identifier-6, or identifier-7 is de- 
scribed as alphanumeric, the INSPECT statement treats the contents of each such identifier 
as a character-string. 


b. If any of identifier-1, identifier-3, identifier-4, identifier-5, identifier-6, or identifier-7 is de- 
scribed as alphanumeric edited, numeric edited or unsigned numeric, the data item is in- 
spected as though redefined as alphanumeric (refer to General Rule 2a) and the INSPECT 
statement had been written to reference the redefined data item. 


c. 
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VERB FORMAT: INSPECT 


If any of identifier-1, identifier-3, identifier-4, identifier-5, identifier-6, or identifier-7 is de- 
scribed as signed numeric, the sign character of the data item is not inspected. 


3. In General Rules 4 through 11 all references to literal-1, literal-2, literal-3, literal-4, and literal- 
5 apply equally to the contents of the data items referenced by identifier-3, identifier-4, identifi- 
er-5, identifier-6, and identifier-7, respectively. 


4. During inspection of the contents of the data item referenced by identifier-1, each properly 
matched occurrence of literal-1 is tallied (Formats 1 and 3) and/or each properly matched oc- 
currence of literal-3 is replaced by literal-4 (Formats 2 and 3). 


5. The comparison operation, to determine the occurrences of literal-1 to be tallied and/or occur- - 
rences of literal-3 to be replaced, occurs as follows: 


a. 


The operands of the TALLYING and REPLACING phrases are considered in the order 
specified in the INSPECT statement from left to right. The first literal-1, literal-3 is com- 
pared to an equal number of contiguous characters, starting with the leftmost character 
position in the data item referenced by identifier-1. Literal-1, literal-3 and that portion of 
the contents of the data item referenced by identifier-1 match only if equal, character for 
character. 


. If no match occurs in the comparison of the first literal-1, literal-3, the comparison is re- 


peated with each successive literal-1, literal-3, if any, until either a match is found or there 
is no next successive literal-1, literal-3. When there is no next successive literal-1, literal- 
3, the character position in the data item referenced by identifier-1 immediately to the right 
of the leftmost character position considered in the last comparison cycle is considered as 
the leftmost character position, and the comparison cycle begins again with the first literal- 
1, literal-3. 


. Whenever a match occurs, tallying and/or replacing takes place as described in General 


Rules 8 through 10. The character position in the data item referenced by identifier-1, im- 
mediately to the right of the rightmost character position that participated in the match, 
is now considered to be the leftmost character position of the data item referenced by iden- 
tifier-1. The comparison cycle starts again with the first literal-1, literal-3. 


. The comparison operation continues until the rightmost character position of the data item 


referenced by identifier-1 has participated in a match or has been considered as the left- 
most character position. When this occurs, inspection is terminated. 


If the CHARACTERS phrase is specified, an implied one character operand participates 
in the cycle described in steps 5a through Sd above, except that no comparison to the con- 
tents of the data item referenced by identifier-1 takes place. This implied character is al- 
ways considered to match the leftmost character of the contents of the data item referenced 
by identifier-1 participating in the current comparison cycle. 


6. The comparison operation defined in General Rule 5 is affected by the BEFORE and AFTER 
phrases as follows: 


a. 


1168622 


If the BEFORE or AFTER phrase is not specified, literal-1, literal-3 or the implied operand 
of the CHARACTERS phrase participates in the comparison operation as described in 
General Rule 5. 
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b. If the BEFORE phrase is specified, the associated literal-1, literal-3 or the implied operand 


of the CHARACTERS phrase participates only in those comparison cycles which involve 
that portion of the contents of the data item referenced by identifier-1 from the leftmost 
character position up to, but not including, the first occurrence of literal-2, literal-5 within 
the contents of the data item referenced by identifier-1. The position of this first occur- 
rence is determined before the first cycle of the comparison operation described in General 
Rule 5 is begun. If, on any comparison cycle, literal-1, literal-3 or the implied operand 
of the CHARACTERS phrase is not eligible to participate, it is considered not to match 
the contents of the data item referenced by identifier-1. If there is no occurrence of literal- 
2, literal-5 within the contents of the data item referenced by identifier-1, the associated 
literal-1, literal-3, or the implied operand of the CHARACTERS phrase participates in the 
comparison operation as though the BEFORE phrase had not been specified. 


Example: 


Assume that identifier-!1 contains ABCDEFGH. 


Phrase _ Range of Inspection 
none A through H 
BEFORE "G" A through F 


BEFORE "DEF” A through C 
BEFORE “FGE” A through H 
BEFORE "A" Null 


c. If the AFTER phrase is specified, the associated literal-1, literal-3 or the implied operand 


of the CHARACTERS phrase may participate only in those comparison cycles which in- 
volve that portion of the contents of the data item referenced by identifier-1 from the char- 
acter position immediately to the right of the rightmost character position of the first oc- 
currence of literal-2, literal-5, within the contents of the data item referenced by identifier- 
1 and the rightmost character position of the data item referenced by identifier-1. The posi- 
tion of this first occurrence is determined before the first cycle of the comparison 
operation described in General Rule 5 is begun. If, on any comparison cycle, literal-1, liter- 
al-3 or the implied operand of the CHARACTERS phrase is not eligible to participate, 
it is considered not to match the contents of the data item referenced by identifier-1. If 
there is no occurrence of literal-2, literal-5 within the contents of the data item referenced 
by identifier-1, the associated literal-1, literal-3, or the implied operand of the CHARAC- 
TERS phrase is never eligible to participate in the comparison operation. 


Example: 


Assume that identifier-1 contains ABCDEFGH. 


Phrase Range of Inspection 
none A through H 
AFTER "C" D through H 


AFTER "BCD" E through H 
AFTER "DCE" Null 
AFTER "H” Null 
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Format I: 
7. The contents of the data item referenced by identifier-2 are not initialized by the execution of 
the INSPECT statement. 
8. The rules for tallying are as follows: 

a. If the ALL phrase is specified, the contents of the data item referenced by identifier-2 are 
incremented by 1 for each occurrence of literal-1 matched within the contents of the data 
item referenced by identifier-1. 

INSPECT word TALLYING count FOR ALL “BA”. 


BARBARA count 
HBAABCT count 


2 
1 


word 
word 


oli 


b. If the LEADING phrase is specified, the contents of the data item referenced by identifier- 
2 are incremented by 1 for each contiguous occurrence of literal-1 matched within the con- 
tents of the data item referenced by identifier-1, provided that the leftmost such occurrence 
is at the point where comparison began in the first comparison cycle in which literal-1 was 
eligible to participate. 


INSPECT word TALLYING count-1 FOR LEADING "N” BEFORE INITIAL "O", 
count-2 FOR LEADING "E” BEFORE INITIAL "R’”. 


I 
0 


0 count-2 
ps count-2 


PATTERSON count-1 
MCKINNON count-1 


word 
word 


ol 
Ml 


c. If the CHARACTERS phrase is specified, the contents of the data item referenced by iden- 
tifier-2 are incremented by 1 for each character matched (refer to General Rule 5e) within 
the contents of the data item referenced by identifier-1. 


INSPECT word TALLYING count FOR CHARACTERS. 


4 
10 


KOMP count 
HARRINGTON count 


word 
word 


Ht 
Holl 
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Format 2: 


9. The eeduited words ALL, LEADING, and FIRST are adjectives that apply to each succeeding 
BY phrase until the next adjective appears. 
10. The rules for replacement are as follows: 


a. When the CHARACTERS phrase is specified, each character matched (refer to General 


Rule Se) in the contents of the data item referenced by identifier-1 is replaced by literal- 
4. 


INSPECT word REPLACING CHARACTERS BY "MM". 


MMMGOOD count 
KOUNT210 count 


word 
word 


MMMMMMM 
MMMMMMMM 


b. When the adjective ALL is specified, each occurrence of literal-3 matched in the contents 
of the data item referenced by identifier-1 is replaced by literal-4. 


INSPECT word REPLACING ALL "R” BY "Z” BEFORE INITIAL "B”. 


ROBERTS after 
RCHRBR after 


word 
word 


ZOBERTS 
ZCHZBR 


c. When the adjective LEADING is specified, each contiguous occurrence of literal-3 matched 
in the contents of the data item referenced by identifier-1 is replaced by literal-4, provided 
that the leftmost occurrence is at the point where comparison began in the first comparison 
cycle in which literal-3 was eligible to participate. 


INSPECT word REPLACING LEADING "S” BY "X”" AFTER INITIAL "O’. 


SPORTS after 
CROSS after 


word 
word 


SPORTX 
CROXX 


d. When the adjective FIRST is specified, the leftmost occurrence of literal-3 matched within 
the contents of the data item referenced by identifier-1 is replaced by literal-4. 


INSPECT word REPLACING FIRST "A” BY "S”, 


word 
word 


ABCA after 
TVANAR after 


SBCA 
TVSNAR 


Hl 
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Format 3: 


11. A Format 3 INSPECT statement is interpreted and executed as though two successive IN- 
SPECT statements specifying the same identifier-1 had been written: one statement is a Format 
1 statement with TALLYING phrases identical to those specified in the Format 3 statement. 
The other statement is a Format 2 statement with REPLACING phrases identical to those 
specified in the Format 3 statement. The general rules given for matching and counting apply 
to the Format 1 statement; the general rules given for matching and replacing apply to the 
Format 2 statement. . 


Examples: 


INSPECT word TALLYING count-1 FOR LEADING "L” BEFORE INITIAL “A”, count-2 FOR 
LEADING "A" BEFORE INITIAL "L”". 


word = LARGE count-] = 
word = ANALYST count-l1 = 


1 
‘0 count-2 


INSPECT werd TALLYING count FOR ALL "L", REPLACING LEADING "A" BY “E” AFTER 
INITIAL "L". 


word = CALLAR count = 2 after = CALLAR 
word = SALAMI count = 1 after = SALEMI 
word = LATTER count = 1 after = LETTER 


INSPECT word REPLACING ALL "A" BY "G” BEFORE INITIAL ’X", 


ARXAX after 
HANDAX after 


GRXAX 
HGNDGX 


word 
word 


INSPECT word TALLYING count FOR CHARACTERS AFTER INITIAL "J" REPLACING ALL 
CAM BY "BY". 


word = ADJECTIVE count = 6 after = BDJCTIVE 
word = JACK count = 3 after = JBCK 
word = JUJMAB count = 5 after = JUJMBB 


INSPECT word REPLACING ALL "X”"” BY "Y", "B” BY "Z", "W" BY "Q” AFTER INITIAL "R”. 


word = RXXBQWY after = RYYZQQY 
word = YZACDWBR after = YZACDWZR 
word = RAWRXEB after = RAQRYEZ 
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INSPECT word REPLACING CHARACTERS BY "B” BEFORE INITIAL "A’. 
before: 1 2X ZABCD 
after: BB BBBABCD 

INSPECT word REPLACING ALL "S” BY "H”, "B” BY "A", "P” BY "L", "C” BY "E”. 


HALE 
HOLLOWLOG 


SBPC after 
HOPPOWPOG after 


word 
word 


Il 
Nt 
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MERGE 


The MERGE statement combines two or more files on a set of specified keys, and during the process 
makes records available, in merged order, to an output procedure or an output file. 


General Format: 


MERGE 
file-name-1 


ASCENDING 
ON KEY data-name-1 [, data-name-2] ... 
DESCENDING 


| | ASCENDING 

ON KEY data-name-3 [, data-name-4] ... 
DESCENDING 

[ COLLATING SEQUENCE IS _alphabet-name | 


USING | 
file-name-2 eee , file-name-3 EURGE , file-name-4 pene 
RELEASE RELEASE RELEASE 


j THROUGH 
| procedure-name-2 


OUTPUT PROCEDURE IS procedure-name-! 
( THRU 


GIVING _ file-name-5 


Syntax Rules: 


1. File-name-1 must be described in a sort-merge file description (SD) entry in the DATA DIVI- 
SION. 


2. Procedure-name-1 represents the name of an output procedure. 


3. File-name-2, file-name-3, file-name-4, and file-name-5 must be described in a file description 
entry (FD), not in a sort-merge file description entry (SD), in the DATA DIVISION. The actual 
size of the logical record(s) described for file-name-2, file-name-3, file-name-4, and file-name- 
5 must be equal to the actual size of the logical record(s) described for file-name-1. If the data 
descriptions of the elementary items that make up these records are not identical, it is the 

' programmer’s responsibility to describe the corresponding records in such a manner so as to 
cause an equal number of character positions to be allocated for the corresponding records. 
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4. The words THRU and THROUGH are equivalent. 


5. Data-name-1, data-name-2, data-name-3, and data-name-4 are KEY data-names and are subject 


9. 


to the following rules: 


a. The data items identified by KEY data-names must be described in records associated with 
file-name-1. 


b. KEY data-names may be qualified. 

c. The data items identified by KEY data-names must not be variable length items. 

d. If file-name-1 has more than one record description, then the data items identified by KEY 
data-names may all be described within one of the record descriptions or in any combina- 
tion of record descriptions. It is not necessary to redescribe the KEY data-names in each 
record description. 

e. None of the data items identified by KEY data-names can be described by an entry which 
either contains an OCCURS clause or is subordinate to an entry which contains an OC- 
CURS clause. 


No more than one file-name from a multiple file reel can appear in the MERGE statement. 


File-names must not be repeated within the MERGE statement. 


. MERGE statements may appear anywhere except in the Declarative portion of the PROCE- 


DURE DIVISION or in an input or output procedure associated with a SORT or MERGI 
statement. 


As many as eight file-names may be specified in the USING clause. 


General Rules: 


7-78 


1. 


The MERGE statement merges all records contained on file-name-2, file-name-3, and file-name- 
4. The files referenced in the MERGE statement must not be open at the time the MERGE 
statement is executed. These files are automatically opened and closed by the MERGE operation 
with all implicit functions performed, such as the execution of any associated USE procedures. 
The terminating function for all files is performed as if a CLOSE statement, Wao optional 
phrases, had been executed for each file. 


. The data-names following the word KEY are listed from left to right in the MERGE statement 


in order of decreasing significance without regard to division into KEY phrases. In the format, 
data-name-! is the major key, data-name-2 is the next most significant key, and so forth. 


a. When the ASCENDING phrase is specified, the merged sequence will be from the lowest 
value of the contents of the data items identified by the KEY data-names to the highest 
value, according to the rules for comparison of operands in a relation condition. 


b. When the DESCENDING phrase is specified, the merged sequence will be from the highest 
value of the contents of the data items identified by the KEY data-names to the lowest 
value, according to the rules for comparison of operands in a relation condition. 
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3. The collating sequence that applies to the comparison of the nonnumeric key data items 
specified is determined in the following order of precedence: 


a. First, the collating sequence established by the COLLATING SEQUENCE phrase, if 
specified, in that MERGE statement. 


b. Second, the collating sequence established as the program collating sequence. 


4. The output procedure must consist of one or more paragraphs or sections that appear conti- 
guously in a source program and do not form a part of any other procedure. In order to make 
merged records available for processing, the output procedure must include the execution of 
at least one RETURN statement. Control must not be passed to the output procedure except 
when a related SORT or MERGE statement is being executed. The output procedure may con- 
sist of any procedures needed to select, modify, or copy the records that are being returned 
one at a time in merged order, from file-name-1. 


The restrictions on the procedural statements within the output procedure are as follows: 


a. The output procedure must not contain any transfers of control to points outside the out- 
put procedure. ALTER, GO TO, and PERFORM statements in the output procedure are 
not permitted to refer to procedure-names outside the output procedure. COBOL74 state- 
ments that cause an implied transfer of control to declaratives are allowed. 


b. The output procedures must not contain any SORT or MERGE statements. 


c. The remainder of the PROCEDURE DIVISION must not contain any transfers of control 
to points inside the output procedures. ALTER, GO TO, and PERFORM statements in 
the remainder of the PROCEDURE DIVISION are not permitted to refer to procedure- 
names within the output procedures. 


5. If an output pro¢edure is specified, control passes to it during execution of the MERGE state- 
ment. The compiler inserts a return mechanism at the end of the last paragraph or section in 
the output procedure. When control passes the last statement in the output procedure, the re- 
turn mechanism provides for termination of the merge, and then passes control to the next 
executable statement after the MERGE statement. Before entering the output procedure, the 
merge procedure reaches a point at which it can select the next record in merged order when 
requested. The RETURN statements in the output procedure are the requests for the next rec- 
ord. 


6. If the GIVING phrase is specified, all the merged records in file-name-1 are automatically writ- 
ten on file-name-5 as the implied output procedure for this MERGE statement. 


7. When, according to the rules for the comparison of operands in a relation condition, the con- 
tents of all the key data items of one data record are equal to the contents of the corresponding 
key data items of one or more other data records, the order of return of these records: 


a. Follows the order of the associated input files as specified in the MERGE statement. 


b. Is such that all records associated with one input file are returned prior to the return of 
records from another input file. 
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8. When the records in the files referenced by file-name-2, file-name-3, ... are not ordered as de- 
scribed in the ASCENDING or DESCENDING KEY clauses, MERGE takes place as previously 
described but with all improperly ordered data records being placed on the output file or re- 
turned to the output procedure immediately after being read from respective input files. As a 
result, when such a condition exists, the output from the MERGE statement is not in a strict 
ASCENDING or DESCENDING KEY order. 
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MOVE 


The MOVE statement transfers data, in accordance with the rules of editing, to one or more data 
areas. 


General Format: 


Format |: 


MOVE ae TQ identifier-2 [, identifier-3] ... 
ees literal c= 


Format 2: 


CORRESPONDING. \ identifier-1 TO identifier-2 


CORR 


Syntax Rules: 


1. Identifier-1 and literal represent the sending area; identifier-2, identifier-3, ..., represent the re- 
ceiving area. 


2. CORR is an abbreviation for CORRESPONDING. 
3. When the CORRESPONDING phrase is used, both identifiers must be group items. 


4, An index data item cannot appear as an operand of a MOVE statement. Refer to the USAGE 
clause in section 6. 


General Rules: 


1. If the CORRESPONDING phrase is used, selected items within identifier-1 are moved to se- 
lected items within identifier-2, according to the rules given in the CORRESPONDING phrase. 
The results are the same as if the user had referred to each pair of corresponding identifiers 
in separate MOVE statements. 


2. The data designated by the literal or identifier-1 is moved first to identifier-2, then to identifier- 
3, and so on. The rules governing identifier-2 also apply to the other receiving areas. Any subs- 
cripting or indexing associated with identifier-2, ... , is evaluated immediately before the data 
is moved to the respective data item. 
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Any subscripting or indexing associated with identifier-1 is evaluated only once, immediately . 
before data is moved to the first of the receiving operands. The result of the statement: 


MOVE a (b) TO b, c (b) 
is equivalent to: 


MOVE a (b) TO temp 
MOVE temp TO b 
MOVE temp TO c (b) 


Temp is an intermediate result item provided by the compiler. 


3. Any MOVE in which the sending and receiving items are both elementary items is an elementary 
move. Every elementary item belongs to one of the following categories: numeric, alphabetic, 
alphanumeric, numeric edited, alphanumeric edited. These categories are described in the PIC- 
TURE clause in section 6. Numeric literals belong to the category numeric, and nonnumeric 
literals belong to the category alphanumeric. The figurative constant ZERO belongs to the 
category numeric. The figurative constant SPACE belongs to the category alphabetic. All other 
figurative constants belong to the category alphanumeric. 

The following rules apply to an elementary move between the categories: 


a. The figurative constant SPACE, a numeric edited, alphanumeric edited, or alphabetic data 
item must not be moved to a numeric or numeric edited data item. 


b. A numeric literal, the figurative constant ZERO, a numeric data item or a numeric edited 
data item must not be moved to an alphabetic data item. 


c. A noninteger numeric literal or a noninteger numeric data item must not be moved to an 
alphanumeric or alphanumeric edited data item. 


d. All other elementary moves are legal and are performed according to the rules given in 
General Rule 4. 


4. Any necessary conversion of data from one form of internal representation to another takes 
place during legal elementary moves, along with any editing specified for the receiving data 
item: 


a. When an alphanumeric edited or alphanumeric item is a receiving item, alignment and any 
necessary space filling takes place as defined under Standard Alignment Rules in section 
2. If the size of the sending item is greater than the size of the receiving item, the excess 
characters are truncated on the right after the receiving item is filled. If the sending item 
is described as being signed numeric, the operational sign is not moved. If the operational 
sign occupied a separate character position (refer to the SIGN clause in section 6), that 
character is not moved and the size of the sending item is considered to be one less than 
the actual size (in terms of standard data format characters). 
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b. When a numeric or numeric edited item is the receiving item, alignment by decimal point 
and any necessary zero-filling takes place as defined under the Standard Alignment Rules, 
except where zeroes are replaced because of editing requirements. 


1) When a signed numeric item is the receiving item, the sign of the sending item is placed 
in the receiving item. Refer to the SIGN clause in section 6. Conversion of the represen- 
tation of the sign takes place as necessary. If the sending item is unsigned, a positive 
sign is generated for the receiving item. 


2) When an unsigned numeric item is the receiving item, the absolute value of the sending 
item is moved and no operational sign is generated for the receiving item. 


3) When a data item described as alphanumeric is the sending item, data is moved as if 
the sending item were described as an unsigned numeric integer. 


c. When a receiving field is described as alphabetic, justification and any necessary space-fill- 
ing takes place as defined under the Standard Alignment Rules. If the size of the sending 
item is greater than the size of the receiving item, the excess characters are truncated on 
the right after the receiving item is filled. 


5. Any move that is not an elementary move is treated exactly as if it were an alphanumeric to 
alphanumeric elementary move, except that there is no conversion of data from one form of 
internal representation to another. In such a move, the receiving area is filled without 
consideration for the individual elementary or group items contained within either the sending 
or receiving area, except as noted in General Rule 4 of the OCCURS clause in section 6. 


6. The validity of the various types of MOVE statements is summarized in table 7-4. The general 
rule reference (for example, 4c) indicates the rule that prohibits the move or the behavior of 
a valid move. 


Table 7-4. A Valid MOVE Statement 


Category of Receiving Data Item 


Category of Alphanumeric Numeric Integer 


Sending Alphabetic Edited Numeric Noninteger 
Data Item Numeric Edited 
Alphanumeric 
ALPHABETIC _ Yes/4c Yes/4a 
ALPHANUMERIC Yes/4c Yes/4a Yes/4b 
ALPHANUMERIC EDITED Yes/4c 


INTEGER No/3b Yes/4a Yes/4b 


NUMERIC 


NONINTEGER No/3b 


NUMERIC EDITED 
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Valid Move Combinations 


Figure 7-1 shows the valid combinations of sending and receiving fields permitted in COBOL74. 
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| RECEIVING 


SENDING 


DISPLAY INTEGER 
NUMERIC 
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REAL 


a — also non-numeric literal 


b — also undigit literal 
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oP 


RC me ee ie 


ZERO SENDING 
FILL ON ZONES 
STRIPPED 


Figure 7-1. Valid MOVE Statement Combinations 
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The MULTIPLY statement causes numeric data items to be multiplied and sets the values of data items 
equal to the results. 


General Format: - 
Format |: 


identifier-| 
literal-] 


MULTIPLY 


BY identifier-2. [ROUNDED | 


by identifier-3 [ROUNDED] ] te [:ON SIZE ERROR imperative-statement ] 


Format 2: 


GIVING identifier-3 [ROUNDED | 


MULTIPLY ' identifier-1 Y identifier-2 \ 


literal-| literal-2 { 


[. identifier-4 [ROUNDED] ] has [ -ON SIZE ERROR imperative-statement ] 


Syntax Rules: 


1. Each identifier must refer to a numeric elementary item, except that in Format 2 each identifier 
following the word GIVING must refer to either an elementary numeric item or an elementary 
numeric edited item. 


2. Each literal must be a numeric literal. 


3. The composite of operands, determined by superimposing all receiving data items of a given 
statement, aligned on decimal points, must not exceed 18 digits. 


General Rules: 


1. Refer to ROUNDED Phrase, SIZE ERROR Phrase, Arithmetic Statements, Overlapping Oper- 
ands, and Multiple Results in Arithmetic Statements in this section for additional rules and in- 
formation. 


2. When Format | is used, the value of identifier-1 or literal-1 is multiplied by the value of identi- 
fier-2. The value of the multiplier (identifier-2) is replaced by this product; similarly for identifi- 
er-1 or literal-1 and identifier-3, and so forth. 


3. When Format 2 is used, the value of identifier-1 or literal-1 is multiplied by identifier-2 or liter- 
al-2 and the result is stored in identifier-3, identifier-4, and so on. 
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OPEN 


The OPEN statement initiates the processing of files. It also performs checking and/or writing of labels 
and other input-output operations. 


General Format: 


c 


INPUT file-name-1 | REVERSED 
WITH NO REWIND 


file-name-2 REVERSED 
WITH NO REWIND 


OUTPUT file-name-3 [WITH NO REWIND] 

OPEN | file-name-+ [WITH NO REWIND] 
file-name-5 
file-name-6 


EXTEND file-name-7 
file-name-8 


Syntax Rules: 


1. The REVERSED and the NO REWIND phrases can only be used with sequential single 
reel/unit files. Refer to CLOSE in this section for additional information. 


2. The I-O phrase can be used only for mass storage files. 
3. The EXTEND phrase can be used only for sequential files. 


4. The EXTEND phrase must not be specified for multiple file reels. Refer to the -O-CONTROL 
Paragraph in section 5. 


5. The files referenced in the OPEN statement need not all have the same organization or access. 
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General Rules: 


1. The successful execution of an OPEN statement determines the availability of the file and re- 
sults in the file being in an open mode. 


2.:The execution of an OPEN statement does not affect either the contents or availability of the 
file’s record area. 


3. When a given file is not in an open mode, no statement (except for a SORT or MERGE state- 
ment with the USING or GIVING phrases) that references that file, either explicitly or impli- 
citly, can be executed. 


4. An OPEN statement must be successfully executed prior to the execution of any of the permissi- 
ble input-output statements. In table 7-5, I, R, or S at an intersection indicates that the 
specified statement, used in the access mode given for that row, may be used with the corre- 
sponding file organization and open mode given at the top of the column. 


Table 7-5. Permissible Statements 


Open Mode 


File Access 
Mode Statement 


Sequential READ 
WRITE 
REWRITE 
START 
DELETE 


Random READ 
WRITE 
REWRITE 
START 
DELETE 


Dynamic READ 
WRITE 
REWRITE. 
START 
DELETE 


The letters I, R, and S have the following meanings: 


Indexed 
Relative 
Sequential 


I 
R 
S 
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5. A file may be opened with the INPUT, OUTPUT, EXTEND, and I-O phrases in the same pro- 
gram. Following the initial execution of an OPEN statement for a file, each subsequent OPEN 
statement execution for that same file be preceded by the execution of a CLOSE state- 
ment, without the REEL, UNIT, or. phrase, for that file. 


6. Execution of the OPEN statement does not obtain or release the first data record. 
7. If label records are specified for the file, the beginning labels are processed as follows: 


a. When the INPUT phrase is specified, the execution of the OPEN statement causes the la- 
bels to be checked in accordance with conventions for input label checking. 


b. When the OUTPUT phrase is specified, the execution of the OPEN statement causes the 
labels to be written in accordance with conventions for output label writing. 


If label records are not specified, it is possible by operator intervention to equate the file 
to one with labels, in which case the label records are ignored. 


8. The file description entry for file-name-1, file-name-2, file-name-5, file-name-6, file-name-7, or 
file-name-8 must be equivalent to that used when this file was created. 


9. If an input file is designated with the OPTIONAL phrase in the SELECT clause, the object 
program causes an interrogation for the presence or absence of this file. If the file is not pres- 
ent, the first READ statement for this file causes the AT END condition to be executed only 
when the operator has responded with an "OF” system message. Refer to the READ Statement 
in this section. 


10. The REVERSED and NO REWIND phrases can only be used with sequential single reel/unit 
_ files. Refer to CLOSE in this section. 


11. The REVERSED and WITH NO REWIND phrases are ignored if they do not apply to the 
storage media on which the file resides. 


12. If the storage media for the file permits rewinding, the following rules apply: 


a. When neither the REVERSED, the EXTEND, nor the NO REWIND phrase is specified, 
execution of the OPEN statement causes the file to be positioned at the beginning. 


b. When the NO REWIND phrase is specified, execution of the OPEN statement does not 
cause the file to be repositioned; the file must be already positioned at the beginning prior 
to execution of the OPEN statement. 


c. When the REVERSED phrase is specified, the file is positioned at the end by execution 
of the OPEN statement. 


13. When the REVERSED phrase is specified, the subsequent READ statements for the file make 
the data records of the file available in reversed order starting with the last record. 
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14. For files being opened with the INPUT or I-O phrase, the OPEN statement sets the current 
record pointer to the first record currently existing within the file. For indexed files, the prime 
record key is established as the key of reference and is used to determine the first record to 
be accessed. If no records exist in the file, the current record pointer is set such that the next 
executed Format 1 READ statement for the file results in an AT END condition. 


15. When the EXTEND phrase is specified, the OPEN statement positions the file immediately fol- 
lowing the last logical record of that file. Subsequent WRITE statements referencing the file 
will add records to the file as though the file had been opened with the OUTPUT phrase. 


16. When the EXTEND phrase is specified and the LABEL RECORDS clause indicates label rec- 
ords are present, the execution of the OPEN statement includes the following steps: 


a. The beginning file labels are processed only in the case of a single reel unit file. 


b. The beginning reel/unit labels on the last existing reel/unit are processed as though the file 
was being opened with the INPUT phrase. 


c. The existing ending file labels are processed as though the file is being opened with the 
INPUT phrase. These labels are then deleted. 


d. Processing then proceeds as though the file had been opened with the OUTPUT phrase. 
17. The I-O phrase permits the opening of a mass storage file for both input and output 
operations. Since this phrase implies the existence of the file, it cannot be used if the mass 


storage file is being initially created. 


18. When the I-O phrase is specified and the LABEL RECORDS clause indicates label records 
are present, the execution of the OPEN statement includes the following steps: 


a. The labels are checked in accordance with conventions for input-output label checking. 
b. The new labels are written in accordance with conventions for input-output label writing. 


19. Upon successful execution of an OPEN statement with the OUTPUT phrase specified, a file 
is created. At that time the associated file contains no data records. 


A relative or sequential file opened with the OUTPUT phrase specified is entered into the disk 
directory as a result of an appropriate CLOSE statement. 


20. OPEN OUTPUT of an ISAM File enters the file in the disk directory during MCP processing 
of the OPEN statement. Any existing ISAM file structures with the same external names as 
the newly created ISAM file will be removed at this time. For further information on ISAM 
file naming, refer to appendix G in this manual. 
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PERFORM 


The PERFORM statement is used to transfer control explicitly to one or more procedures and to return 
control implicitly whenever execution of the specified procedure is complete. 


General Format: 


Format 1: 


\ THROUGH 


PERFORM procedure-name-|! procedure-name-2 
THRU 


Format 2: 


identifier-1 


| THROUGH 


PERFORM procedure-name- 1 procedure-name-2 


| THRU | integer-1 


Format 3: 


( THROUGH ) 


PERFORM procedure-name-| procedure-name-2 UNTIL condition-1 


(THRU 
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Format 4: 


( THROUGH 
PERFORM procedure-name-! ) procedure-name-2 
THRU 


| identifier-2  identifier-3 
VARYING =; FROM }inievtame | 
index-name-] literal-1 
{ identifier-4 
BY : UNTIL condition-1 
l hiteral-2 


j identifier-5 identifier-6 


FROM pndexame- 


E TER 
literal-3 


( index-name-3 
identifier-7 
BY 


UNTIL condition-2 
literal-4 


Syntax Rules: 


1. Each identifier represents a numeric elementary item described in the DATA DIVISION. In 
Format 2, identifier-1 must be described as a numeric integer. 


2. Each literal represents a numeric literal. 

3. The words THRU and THROUGH are equivalent. 

4. If an index-name is specified in the VARYING or AFTER phrase, then: 
a. The identifier in the associated FROM and BY phrases must be an integer data item. 
b. The literal in the associated FROM phrase must be a positive integer. 
c. The literal in the agence BY phrase must be a nonzero integer. 

5. If an index-name is specifed in the FROM phrase, then: 
a. The identifier in the associated VARYING or AFTER phrase must be an integer data item. 
b. The identifier in the associated BY phrase must be an integer data item. 


c. The literal in the associated BY phrase must be an integer. 
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6. Literal in the BY phrase must not be zero. 


7. Condition-1, condition-2 may be any conditional expression as described in Conditional Expres- 
sions in this section. 


8. Where procedure-name-1] and procedure-name-2 are both specified and either is the name of 
a procedure in the declarative section of the program, then both must be procedure-names in 
the same declarative section. 


General Rules: 
1. The data items referenced by identifier-4 and identifier-7 must not have a zero value. 


2. If an index-name is specified in the VARYING or AFTER phrase, and an identifier is specified 
in the associated FROM phrase, then the data item referenced by the identifier must have a 
positive value. 


3. When the PERFORM statement is executed, control is transferred to the first statement of the 
procedure named procedure-name-1, except as indicated in General Rules 6b, 6c, and 6d which 
follow. This transfer of control occurs only once for each execution of a PERFORM statement. 
For those cases where a transfer of control to the named procedure does take place, an implicit 
transfer of control to the next executable statement following the PERFORM statement is estab- 
lished as follows: 


a. If procedure-name-1 is a paragraph-name and procedure-name-2 is not specified, then the 
return is after the last statement of procedure-name-1. 


b. If procedure-name-1 is a section-name and procedure-name-2 is not specified, then the re-. 
turn is after the last statement of the last paragraph in procedure-name-1. 


c. If procedure-name-2 is specified and it is a paragraph-name, then the return is after the 
last statement of the paragraph. 


d. If procedure-name-2 is specified Sad it is a section-name, then the return is after the last 
statement of the last paragraph in the section. 


4.. No particular sequential relationship is required to exist between procedure-name-1l and proce- 
dure-name-2. There may be more than one logical path of program control through the per- 
formed range of procedures. A common method, though not a required one, of.documenting 
the terminal paragraph of a performed range of procedures is through the use of the EXIT 
statement. 


5. An implicit return mechanism is established at the end of.a performed range of procedures and 
is activated by the execution of a PERFORM statement. Program control reaching an active 
return mechanism always returns to the activating PERFORM statement. A return mechanism 
permanently deactivates.by transferring program control back to a PERFORM statement. An 
active return mechanism is temporarily deactivated by the execution of a PERFORM statement. 
Program control always passes through a nonactive return mechanism to: the next executable 
statement following the PERFORM range. 
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6. The PERFORM statements operate as follows with General Rule 5 applying to all formats: 


a. Format 1 is the format of the basic PERFORM statement. A procedure referenced by this 


b. 


type of PERFORM statement is executed once and then control passes to the next 
executable statement following the PERFORM statement. 


Format 2 is the format of the PERFORM...TIMES statement. The procedures are per- 
formed the number of times specified by integer-1 or by the initial value of the data item 
referenced by identifier-1 for that execution. If, at the time of execution of a PERFORM 
statement, the value of the data item referenced by identifier-1 is equal to zero or is 
negative, control passes to the next executable statement following the PERFORM state- 
ment. Following the execution of the procedures the specified number of times, control 
is transferred to the next executable statement following the PERFORM statement. 


During execution of the PERFORM statement, references to identifier-1 cannot alter the 
number of times the procedures are to be executed from that which was indicated by the 
initial value of identifier-1. 


c. Format 3 is the format of the PERFORM...UNTIL statement. The specified procedures 


d. 


are performed until the condition specified by the UNTIL phrase is TRUE. When the con- 
dition is TRUE, control is transferred to the next executable statement after the PER- 
FORM statement. If the condition is TRUE when the PERFORM statement is executed, 
no transfer to procedure-name-1 takes place, and control is passed to the next executable 
statement following the PERFORM statement. 


Format 4 is the format of the PERFORM...VARYING statement. This variation of the 
PERFORM statement is used to augment the values referenced by one or more identifiers 
or index-names in an orderly fashion during the execution of a PERFORM statement. In 
the following discussion, every reference to identifier as the object of the VARYING, AF- 
TER, and FROM (current value) phrases also refers to index-names. When index-name ap- 
pears in a VARYING and/or AFTER phrase, it is initialized and subsequently augmented 
according to the rules of the SET statement. When index-name appears in the FROM 
phrase, identifier, when it appears in an associated VARYING or AFTER phrase, is initial- 
ized according to the rules of the SET statement. Subsequent augmentation is described 
in the following paragraphs. 


Identifier-2 and all occurrences, if any, of identifier-S are set, in the order of occurrence 
in the PERFORM statement, to the value of the literal or the current value of the identifier 
in the associated FROM phrase. Condition-1 is then evaluated. 


If any condition, other than the last, is FALSE on any occasion when it is evaluated, the 
next condition is evaluated immediately. 


If the last condition is FALSE when evaluated, the sequence of procedures, procedure- 
name-1 through procedure-name-2, is executed once. The last BY value is then added to 
the associated identifier-2 or identifier-5 and the condition evaluated again. 
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If condition-1 is TRUE when evaluated, control is transferred to the next executable state- 
ment after the PERFORM statement. If condition-1 is TRUE the first time it is evaluated, 
the remaining conditions are not evaluated and the sequence of procedures, procedure- 
name-| through procedure-name-2, is not executed. 


If any condition-2 is TRUE when evaluated, these actions take place: first, the associated 
identifier-5 is set to the value of literal-3 or the current value of identifier-6 in the associ- 
ated FROM phrase. Second, the identifier of the immediately preceding AFTER or VARY- 
ING phrase is incremented by the associated BY value, and the condition specified in that 
preceding phrase is then evaluated. 


Figure 7-2 is a flowchart for the VARYING phrase of a PERFORM statement having one condition. 


ENTRANCE 


Set 
identifier-2 equal to 
current FROM value 


TRUE 


Exit 


Condition-1 


FALSE 


Execute 
procedure-name-1 THRU 
procedure-name-2 


Augment 
identifier-2 with 
current BY value 


G12338 


Figure 7-2. PERFORM VARYING with One Condition 
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Figure 7-3 is a flowchart for the VARYING phrase of a PERFORM statement having two conditions. 


ENTRANCE 


Set identifier-2 and 
identifier-5 to current 
FROM values 


Condition-1 Exit 


Condition-2 


Execute 
procedure-name-1 THRU 
procedure-name-2 


Set 
identifier-5 to its 
current FROM value 


Augment 
identifier-5 with 
current BY value 


Augment 
identifier-2 with 
current BY value 


612339 


Figure 7-3. PERFORM VARYING with Two Conditions | 
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A procedure executed under the control of a PERFORM statement may execute PERFORM 
statements. There is no requirement that the range of procedures executed under the control 
of the nested PERFORM statement be declared totally within, or disjoint from, the range of 
procedures executed by the first PERFORM statement. The permanent deactivation of an active 
return mechanism causes the last return mechanism temporarily deactivated to again become 
active, allowing overlapping PERFORM ranges, or two or more PERFORM ranges that have 
a common exit point, to logically execute the same as disjoint PERFORM ranges. 


Transferring program control, by means of a GO TO statement, from a range of procedures 
being executed under control of a PERFORM statement does not cause the return mechanism 
to be deactivated. Subsequently transferring program control back into the PERFORM range 
causes control to return to the PERFORM statement, provided that the return mechanism is 
still active. Repeatedly branching from a PERFORM range without allowing control to ever 
reach an active return mechanism may cause the program to terminate abnormally by exhaust- 
ing the resources allocated to account for return mechanisms. 
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For sequential access, the READ statement makes available the next logical record from a file. For 
random access, the READ statement makes available a specified record from a mass storage file. 


General Format: 


Format |: 


READ filename [NEXT] RECORD  [ INTO identifier ] 


[; AT END imperative-statement | 


Format 2: 


READ file-name RECORD [ INTO identifier ] 
[ ; KEY IS data-name | 


[ ; INVALID KEY imperative-statement ] 
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Syntax Rules: 


1 


The INTO phrase must not be used when the input file contains logical records of various sizes 
as indicated by their record descriptions. The storage area associated with identifier and the 
storage area which is the record area associated with file-name must not be the same storage 
area. 


. For an Indexed File, data-name must be the name of a data item specified as a record key 


associated with file-name. 


. Data-name may be qualified. 
. Format 1 must be used for all files in sequential access mode. 


. The NEXT phrase must be specified for Relative and Indexed Files in dynamic access mode 


when records are to be retrieved sequentially. 


Format 2 is used for files in random access mode or for files in dynamic access mode when 
records are to be retrieved randomly. 


The INVALID KEY phrase or the AT END phrase must be specified if no applicable USE pro- 
cedure is specified for the file-name. 


General Rules: 


1. 


3. 


4. Regardless of the 


The associated file must be open in the INPUT or I-O mode and must not be a SORT or 
MERGE file. Refer to the OPEN statement in this section. 


record to be made available by a Format 1 READ statemen 
is determined as follows: 


a. The record, pointed to by the current record pointer, is made available provided that the 
current record pointer is positioned by the START or OPEN statement and the record is 
still accessible through the path indicated by the current record pointer. If the record is 
no longer accessible, which may be caused by the deletion of the record or a change in 
an alternate record key, the current record pointer is updated to point to the next existing 
record within the established key of reference and that record is then made available. 


b. If the current record pointer was positioned by the execution of a previous READ state- 
ment, the current record pointer is updated to point to the next existing record in the file 
with the established key of reference, and that record is then made available. 


The execution of the READ statement causes the value of the FILE STATUS data item, if any, 
associated with file-name to be updated. Refer to I-O Status in section 5. 

hod d ] e with processing time, the concept of the 
READ statement: is unchanged in that a record is available 


to the object program prior to the execution of any statement following the READ statement. 
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10. 


. When the logical records of a file are described with more than one record description, these 


records automatically share the same storage area; this is equivalent to an implicit redefinition 
of the area. The contents of any data items which lie beyond the range of the current data 
record are undefined at the completion of the execution of the READ statement. 


. If the INTO phrase is specified, the record being read is moved from the record area to the 


area specified by identifier according to the rules specified for the MOVE statement without 
the CORRESPONDING phrase. The sending area is considered to be a group item whose size 


' ig equal to the maximum record size for this file. 


The implied MOVE does not occur if the execution of the READ statement was unsuccessful. 
Any subscripting or indexing associated with identifier is evaluated after the record has been 
read and immediately before it is moved to the data item. 


. When the INTO phrase is used, the record being read is available in both the input record area 


and the data area associated with identifier. 


. If, at the time of execution of a Format 1 READ statement, the position of current record 


pointer for that file is undefined, the execution of that READ statement is unsuccessful. 


If, at the time of the execution of a Format 1 READ statement, no next logical record exists 
in the file, the AT END condition occurs, and the execution of the READ statement is consid- 
ered unsuccessful. Refer to I-O Status in section 5. 

When the AT END condition is recognized, the following actions are taken in the specified or- 
der: 


a. A value is placed into the FILE STATUS data item, if specified for this file, to indicate 
an AT END condition. Refer to I-O Status in section 5. 


b. If the AT END phrase is specified in the statement causing the condition, control is trans- 
- ferred to the AT END imperative statement. Any USE procedure specified for this file is 
not executed. 


c. If the AT END phrase is not specified, then a USE procedure must be specified, either 
explicitly or implicitly for this file, and that procedure is executed. 


When the AT END condition occurs, execution of the input-output statement which caused 
the condition is unsuccessful. 


11. Following the unsuccessful execution of any READ statement, the contents of the associated 


record area and the position of the current record pointer are undefined. For Indexed Files, 
the key of reference is also undefined. 


12. When the AT END condition has been recognized, a Format 1 READ statement for that file 


7-102 


must: not be executed without first executing one of the following: 


a. A successful CLOSE statement followed by the execution of a successful One statement 
for that file. 


b. A successful START statement for the file. 


13. 


14. 


15. 


16. 


7. 


18. 


19. 
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‘c. A successful Format 2 READ statement for that file. 
d. A SEEK statement. 


For a file for which dynamic access mode is specified, a Format 1 READ statement with the 
NEXT phrase specified causes the next logical record to be retrieved from that file as described 
in the preceding General Rule 2. 


For an Indexed File being sequentially accessed, records having the same duplicate value in 
an alternate record key, which is the key of reference, are made available in the same order 
in which they are released by execution of WRITE statements, or by execution of REWRITE 
statements which create such duplicate values. 


For an Indexed File, if the KEY phrase is specified in a Format 2 READ statement, data- 
name is established as the key of reference for this retrieval. If the dynamic access mode is 
specified, this key of reference is also used for retrievals by any subsequent executions of For- 
mat 1 READ statements until a different key of reference is established for the file. 


For an Indexed File, if the KEY phrase is not specified in a Format 2 READ statement, the 
prime record key is established as the key of reference for this retrieval. If the dynamic access 
mode is specified, this key of reference is also used for retrievals by any subsequent executions 
of Format 1 READ statements until a different key of reference is established for the file. 


Execution of a Format 2 READ statement on an Indexed File causes the value of the key of 
reference to be compared with the value contained in the corresponding data item of the stored 
records in the file, until the first record having an equal value is found. The current record 
pointer is positioned to this record which is then made available. If no record can be so identi- 
fied, the INVALID KEY condition exists and execution of the READ statement is unsuccess- 
ful. Refer to the INVALID KEY Condition in section 5. 


If the end of a reel or unit is recognized during execution of a READ statement, and the 
logical end of the file has not been reached, the following operations are executed: 


a.. The standard ending reel/unit label procedure. 

b. A reel/unit swap. 

c. The standard beginning reel/unit label procedure. 

d. The first data record of the new reel/unit is made available. 

If a Sequential File described with the OPTIONAL phrase is not present at the time the file 
is opened, then at the time of execution of the first READ statement, the AT END condition 
occurs and the execution of the READ statement is unsuccessful. The standard end-of-file pro- 
cedures are not performed. Refer to the FILE-CONTROL Paragraph, and I-O Status in sec- 


tion 5; OPEN Statement, and USE Statement in section 7. Execution of the program then pro- 
ceeds as specified in general rule 10. 
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20. 


21. 


22: 


23 


24. 


In a Sequential File, if the ACTUAL KEY phrase is specified for a file whose access mode 
is sequential, the execution of a Format 1 READ statement updates the contents of the ACTU- 
AL KEY data item to the ordinal number of the logical record accessed. 


The execution of a Format 2 READ statement accesses the record specified by the contents 
of the ACTUAL KEY data item. 


If, upon the execution of a Format 2 READ statement, the contents of the ACTUAL KEY 
data item are less than 1 or greater than the ordinal number of the last record written to the 
file, the READ statement is unsuccessful and the INVALID KEY condition exists. 


In a Relative File, if the RELATIVE KEY phrase is specified, the execution of a Format 1 
READ statement updates the content of the RELATIVE KEY data item so that it contains 
the relative record number of the record made available. 


For a Relative File, the execution of a Format 2 READ statement sets the current record point- 
er and makes available the record whose relative record number is contained in the data item 
named in the RELATIVE KEY phrase for the file. If the file does not contain such a record, 
the INVALID KEY condition exists and execution of the READ statement is unsuccessful. Re- 
fer to the INVALID KEY condition under Invalid Key in section 5. 
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The RECEIVE statement makes available to the COBOL74 program a message, message segment, or 
a portion of a message or segment, and other pertinent information about that data from a queue 
_maintained by the Data Communication Subsystem. The RECEIVE statement allows for a specific im- 
perative statement when no data is available. 


Message segmentation (SEGMENT option) requires a participating Data Communication Subsystem 
that supports this feature. Refer to Communication Section in section 6 of this manual. 


General Format: 


RECEIVE ed-name{ MESSAGE | nTO identifier-1 


SEGMENT 
[ ; NO DATA imperative-statement ] 


Syntax Rules: 
1. Cd-name must reference an input CD. 
General Rules: 


1. The contents of the data items specified by data-name-1 (SYMBOLIC QUEUE) through data- 
name-4 (SYMBOLIC SUB-QUEUE3) of the area referenced by cd-name designate the queue 
structure containing the message. Refer to the Communication Description Structure (CD) in 
section 6. 


2. The message, message segment, or portion of a message or segment is transferred to the receiv- 
ing character positions of the area referenced by identifier-1 aligned to the left without space 
fill. 


3. When, during the execution of a RECEIVE statement, the data is made available in the data 
item referenced by identifier-1, control is transferred to the next executable statement, whether 
or not the NO DATA phrase is specified. 


4. When, during the execution of a RECEIVE statement, the data is not made available in the 
data item referenced by identifier-1: 


a. If the NO DATA phrase is specified, the RECEIVE operation is terminated with the indi- 
cation that action is complete (refer to General Rule 5), and the imperative statement in 
the NO DATA phrase is executed. 


b. If the NO DATA phrase is not specified, execution of the object program is suspended 
until data is made available in the data item referenced by identifier-1. 


c. If the queue is unknown or access is denied to the queue, control passes to the next execut- 
able statement, whether or not the NO DATA phrase is specified. Refer to table 6-3, Com- 
munication Status Key Condition, in section 6. 
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The data items identified by the input CD are appropriately updated at each execution of a 
RECEIVE statement. Refer to the Communication Description Structure (CD) in section 6. 


A single execution of a RECEIVE statement never returns to the data item referenced by identi- 
fier-1 more than a single message (when the MESSAGE phrase is used) or a single segment 
(when the SEGMENT phrase is used). However, the Data Communication Subsystem does not 
pass any portion of a message to the object program until the entire message is available in 
the input queue, even if the SEGMENT phrase of the RECEIVE statement is specified. 


. When the MESSAGE phrase is used, end of segment indicators are ignored, and the following 


rules apply to the data transfer: 


a. If a message is the same size as the area referenced by identifier-1, the message is stored 
in the area referenced by identifier-1. 


b. If a message size is less than the size of the area referenced by identifier-1, the message 
is aligned to the leftmost character position of the area referenced by identifier-1 with no 
space fill. 


c. If a message size is greater than the size of the area referenced by identifier-1, the message 
fills the area referenced by identifier-1 left to right, starting with the leftmost character 
of the message. The remainder of the message is transferred to the area referenced by iden- 
tifier-1 with subsequent RECEIVE statements referring to the same queue, sub-queue, etc. 
Note that the remainder of the message is treated as a new message and the rules 7a, 7b, 
and 7c are applied again. 
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The RELEASE statement transfers records to the initial phase of a SORT operation. 


General Format: 


RELEASE record-name [FROM identifier] 


Syntax Rules: 


1. A RELEASE statement may only be used within the range of an input procedure associated 
with a SORT statement for a file whose Sort-Merge file description entry contains record-name. 
Refer to SORT in this section. 


2. Record-name must be the name of a logical record in the associated Sort-Merge file description 
entry and may be qualified. 


3. Record-name and identifier must not refer to the same storage area. 
General Rules: 


1. The execution of a RELEASE statement causes the record named by record-name to be released 
to the initial phase of a sort operation. 


2. If the FROM phrase is used, the contents of the identifier data area are moved to record-name, 
then the contents of record-name are released to the sort file. Moving takes place according 
to the rules specified for the MOVE statement without the CORRESPONDING phrase. 


3. The execution of a RELEASE statement has no effect upon either the contents or accessibility 
of the record area. If the sort-merge file is named in a SAME RECORD AREA clause, the 
logical record is also available to the program as a record of other files referenced in the same 
SAME RECORD AREA clause as the associated sort-merge file, as well as to the file associated 
with record-name. When control passes from the input procedure, the file consists of all those 
records which were placed in it by the execution of RELEASE statements. 
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RETURN 


The RETURN statement obtains either sorted records from the final phase of a SORT operation or 
merged records during a MERGE operation. 


General Format: 


| , RETURN file-name RECORD (INTO identifier ] . AT END imperative-statement 


Syntax Rules: 


1. File-name must be described by a Sort-Merge file description entry in the DATA DIVISION. 


2. A RETURN statement may only be used within the range of an output procedure associated 
with a SORT or MERGE statement for file-name. 


3. The INTO phrase must not be used when the input file contains logical records of various sizes 
as indicated by their record descriptions. The storage area associated with identifier and the rec- 
ord area associated with file-name must not be the same storage area. 


General Rules: 


1. When the logical records of a file are described with more than one record description, these 
records automatically share the same storage area, which is an implicit redefinition of the area. 


2. The execution of the RETURN statement causes the next record, in the order specified by the 
KEY clause in the SORT or MERGE statement, to be transferred to the record area. 


It is the responsibility of the COBOL74 programmer to account, if necessary, for the size of the logical 
record returned. 


3. If the INTO phrase is specified, the current record is moved from the input area to the area 
specified by identifier according to the rules for the MOVE statement without the CORRE- 
SPONDING phrase, with the sending area considered to be a group item having a fixed size 
equal to the maximum record size. The implied MOVE does not occur if there is an AT END 
condition. Any subscripting or indexing associated with identifier is evaluated after the record 
has been returned and immediately before it is moved to the data item. 


4. When the INTO phrase is used, the data is available in both the input record area and the 
data area associated with identifier. 


5. If no next logical record exists for the file at the time of the execution of a RETURN statement, 
the AT END condition occurs. 


When the AT END condition occurs, no transfer of data to the record area takes place and 
the contents of the record area are undisturbed. After the AT END condition occurs, the con- 
tents of the record area are still accessible. After the execution of the imperative-statement in 
the AT END phrase, no other RETURN statement may be executed as part of the current out- 
put procedure. 
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The REWRITE statement logically replaces a record existing in a mass storage file. 


General Format: 


REWRITE __ record-name [FROM identifier ] 


[; INVALID KEY imperative-statement ] 


Syntax Rules: 


1. 


2 


Record-name and identifier must not refer to the same storage area. 


Record-name is the name of a logical record in the FILE SECTION of the DATA DIVISION 
and may be qualified. 


. The INVALID KEY phrase must not be specified for a REWRITE statement which references 


a file in sequential access mode. 


. The INVALID KEY phrase must be specified in the REWRITE statement for files in the ran- 


dom or dynamic access mode for which an appropriate USE procedure is not specified. 


General Rules: 


1. 
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The file associated with record-name must be a mass storage file and must be open in the I-O 
mode at the time of execution of this statement. It cannot be a SORT or MERGE file. Refer 
to the OPEN statement in this section. 


. For files in the sequential access mode, the last input-output statement executed for the associ- 


ated file prior to the execution of the REWRITE statement must be a successfully executed 
READ statement. The record that is accessed by the READ statement is logically replaced. 


. The number of character positions in the record referenced by record-name must be equal to 


the number of character positions in the record being replaced. 


. The execution of the REWRITE statement has no effect upon the contents or accessibility of 


the record area. If the associated file is named in a SAME RECORD AREA clause, the logical 
record is available to the program as a record of other files appearing in the same SAME REC- 
ORD AREA clause as the associated I-O file, as well as to the file associated with record-name. 


11. 


12. 


13. 
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. The execution of a REWRITE statement with the FROM phrase is equivalent to the execution 


of: 
MOVE identifier TO record-name 
followed by the execution of the same REWRITE statement without the FROM phrase. The 


contents of the record area before execution of the implicit MOVE statement have no effect 
on the execution of the REWRITE statement. 


. The current record pointer is not affected by the execution of a REWRITE statement. 


. The execution of the REWRITE statement causes the value of the FILE STATUS data item, 


if any, associated with the file to be updated. Refer to I-O STATUS in section 5. 


. For a Relative File accessed in either random or dynamic access mode, the record specified by 


the contents of the RELATIVE KEY data item associated with the file is the one rewritten. 
If the file does not contain the record specified by the key, the INVALID KEY condition exists. 
Refer to the Invalid Key in section 5. The updating operation does not take place and the data 
in the record area is unaffected. 


. In a Sequential File, contents of the ACTUAL KEY data item, if specified, are ignored during 


the execution of the REWRITE statement and are not updated by execution of that statement. 


. For an Indexed File in the sequential access mode, the record to be replaced is specified by 


the value contained in the prime record key. When the REWRITE statement is executed, the 
value ‘contained in the prime record key data item of the record to be replaced must be equal 


to the value of the prime record key of the last record read from this file. 


For an Indexed File in the random or dynamic access mode, the record to be replaced is 
specified by the prime record key data item. 


In an Indexed File, the contents of alternate record key data items of the record being rewritten 
may differ from those in the record being replaced. The contents of the record key data items 
are utilized during the execution of the REWRITE statement in such a way that subsequent 
access of the record may be made based upon any of those specified record keys. 


In an Indexed File, the INVALID KEY condition exists when: 
a. The access mode is sequential and the value contained in the prime record key data item 
of the record to be replaced is not equal to the value of the prime record key of the last 
record read from this file. 


b. The value contained in the prime record key data item does not equal that of any record 
stored in the file, or 


c. The value contained in an alternate record key data item for which a DUPLICATES clause 
has not been specified is equal to that of a record already stored in the file. 


The updating operation does not take place and the data in the record area unaffected. 
Refer to the Invalid Key in section 5. 
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The SEARCH statement is used to search a table for a table element that satisfies the specified condi- 
tion and to adjust the associated index-name to indicate that table element. 


General Formats: 
Format 1: 


identifier-2 | 


SEARCH identifier-1 .| VARYING ‘ 
———— ——— index-name-1 


[; AT END imperative-statement-I | 


imperative-statement-2 


; WHEN condition-1 NEXT SENTENCE 


[ WHEN condition-2 


imperative-statement-3 
NEXT SENTENCE 


Format 2: 


SEARCH ALL identifier-1 [. AT END imperative-statement-I | 


IS EQUAL Tol identifier-3 


i S data-name-1 ae literal-1 


arithmetic-expression-] 


| condition-name-! 
ee oe identifier4 
{ sate -name-2 is a 1 iter 2 | 
) SECC SBTESSION | 
leecuee -name-2 


imperative-statement-2 
NEXT SE SENTENCE 


NOTE 
To avoid confusion with other symbols, the required relational character ' = ' 
is not underlined. 
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Syntax Rules: 


1. In both Formats | and 2, identifier-1 must not be subscripted or indexed, but its description 
must contain an OCCURS clause and an INDEXED BY clause. The description of identifier- 
1 in Format 2 must. also contain the KEY IS phrase in its OCCURS clause. 


2. Identifier-2, when specified, must be described as USAGE IS INDEX or as a numeric elemen- 
tary item without any positions to the right of the assumed decimal point. 


3. In Fqrmat 1, condition-1, condition-2, and so on, may be any condition as described in Condi- 
tional Expressions in this section. 


4. In Format 2, all referenced condition-names must be defined as having only a single value. The 
data-name associated with a condition-name must appear in the KEY clause of identifier-1. 
Each data-name-1, data-name-2 may be qualified. Each data-name-1, data-name-2 must be in- 
dexed by the first index-name associated with identifier-1 along with other indices or literals 
as required, and must be referenced in the KEY clause of identifier-1. Identifier-3, identifier- 
4, or identifiers specified in arithmetic-expression-1, arithmetic-expression-2 must not be refer- 
enced in the KEY clause of identifier-1 or be indexed by the first index-name associated with 
identifier-1. : 


In Format 2, when a data-name in the KEY clause of identifier-1 is referenced, or when a con- 
dition-name associated with a data-name in the KEY clause of identifier-1 is referenced, all pre- 
ceding data-names in the KEY clause of identifier-1 or their associated condition-names must 
also be referenced. 


General Rules: 


1. If Format 1 of the SEARCH statement is used, a serial type of search operation takes place, 
starting with the current index setting. 


a. If, at the start of execution of the SEARCH statement, the index-name associated with 
identifier-1 contains a value that corresponds to an occurrence number that is greater than 
the highest permissible occurrence number for identifier-1, the operation is terminated im- 
mediately. The number of occurrences of identifier-1, the last of which is the highest per- 
mitted, is discussed in the OCCURS clause. Refer to the OCCURS clause in section 6. 
Then, if the AT END phrase is specified, imperative-statement-J is executed, and the AT 
END phrase is not specified, control passes to the next executable sentence. 


b. If, at the start of execution of the SEARCH statement, the index-name associated with 
identifier-1 contains a value that corresponds to an occurrence number that is not greater 
than the highest permissible occurrence number for identifier-1, the SEARCH statement 
operates by evaluating the conditions in the order in which written, making use of the in- 
dex settings, wherever specified, to determine the occurrence of those items to be tested. 
If none of the conditions are satisfied, the index-name for identifier-1 is incremented to 
obtain reference to the next occurrence. The process is then repeated using the new index- 
name settings unless the new value of the index-name settings for identifier-1 corresponds 
to a table element outside the permissible range of occurrence values, in which case the 
search terminates as indicated in General Rule la. If one of the conditions is satisfied upon 
its evaluation, the search terminates immediately and the imperative statement associated 
with that condition is executed; the index-name remains set at the occurrence which caused 
the condition to be satisfied. | 
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2. In a Format 2 SEARCH statement, the results of the SEARCH ALL operation are predictable 
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only when the data in the table is ordered in the same manner as described in the 
ASCENDING/DESCENDING KEY clause associated with the description of identifier-1. 


. If Format 2 of the SEARCH statement is used, a binary search type of operation takes place; 


the initial setting of the index-name for identifier-1 is ignored and its setting is varied during 
the search operation according to accepted binary techniques, with the restriction that at no 
time is it set to a value exceeding the value which corresponds to the last element of the table, 
or which is less than the value that corresponds to the first element of the table. The length 
of the table is discussed in the OCCURS clause. Refer to the OCCURS clause in section 6. 
If any of the conditions specified in the WHEN clause cannot be satisfied for any setting of 
the index within the permitted range, control is passed to imperative-statement-1 of the AT 
END phrase, when specified, or to the next executable sentence when not specified. In either 
case, the final setting of the index is the value which corresponds to an occurrence number 
which is one greater than the last element of the table. 


If all the conditions can be satisfied, the index indicates an occurrence that allows the condi- 
tions to be satisfied, and control passes to imperative-statement-2. 


When the contents of the key(s) referenced in the WHEN clause are not sufficient to identify 
a unique table element, the index indicates the occurrence closest to the beginning of the table 
which satisfies the condition. 


. After execution of imperative-statement-1, imperative-statement-2, or imperative-statement-3, 


that does not terminate with a GO TO statement, control passes to the next executable sentence. 


. In Format 2, the index-name that is used for the search operation is the first or only index- 


name that appears in the INDEXED BY phrase of identifier-1. Any other index-names for iden- 
tifier-1 remain unchanged. 


. In Format 1, if the VARYING phrase is not used, the index-name that is used for the search 


operation is the first or only index-name that appears in the INDEXED BY phrase of identifier- 
1. Any other index-names for identifier-1 remain unchanged. 


. In Format 1, if the VARYING index-name-1 phrase is specified, and if index-name-1 appears 


in the INDEXED BY phrase of identifier-1, that index-name is used for this search. If this is 
not the case, or if the VARYING identifier-2 phrase is specified, the first or only index-name 
given in the INDEXED BY phrase of identifier-1 is used for the search. In addition, the fol- 
lowing operations occur: 


a. If the VARYING index-name-1 phrase is used, and if index-name-1 appears in the IN- 
DEXED BY phrase of another table entry, the occurrence number represented by index- 
name-1 is incremented by the same amount and at the same time as the occurrence number 
represented by the index-name associated with identifier-1 is incremented. 


b. If the VARYING identifier-2 phrase is specified, and identifier-2 is an index data item, 
then the data item referenced by identifier-2 is incremented by the same amount and at 
the same time as the index associated with identifier-1 is incremented. If identifier-2 is not 
an index data item, the data item referenced by identifier-2 is incremented by the value 
1 at the same time as the index referenced by the index-name associated with identifier- 
1 is incremented. | 
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8. If identifier-1 is a data item subordinate to a data item that contains an OCCURS clause pro- 
viding for a multidimensional table, an index-name must be associated with each dimension of 
the table through the INDEXED BY phrase of the OCCURS clause. Only the setting of the 
index-name associated with identifier-1 (and the data item identifier-2 or index-name-1, if pres- 
ent) is modified by the execution of the SEARCH statement. To search an entire multidimen- 
sional table it is necessary to execute a SEARCH statement several times. Before each execution 
of a SEARCH statement, SET statements must be executed whenever index-names must be ad- 
justed to appropriate settings. 


Figure 7-4 contains a flowchart of the Format.1 SEARCH operation containing two WHEN phrases. 


x START 


tndex 


setting: % 
highest permissible >_ATEND imperative- 
occurrence statement-1 
number 
< 
TRUE : ive- 
Condition-1 sikh ** 
FALSE 
TRUE imperative- 


Condition-2 


statement-3 


FALSE 


increment index-name for 
identifier-1 (index-name-1 
if applicable) 


increment index-name-1 
(for a different table) * 
or identifier-2 


* THESE OPERATIONS ARE OPTIONS INCLUDED ONLY WHEN 
SPECIFIED IN THE SEARCH STATEMENT. 


*#* EACH OF THESE CONTROL TRANSFERS IS TO THE NEXT 
EXECUTABLE SENTENCE UNLESS THE IMPERATIVE-STATEMENT 
G12340 ENDS WITH A GO TO STATEMENT. 
Figure 7-4. SEARCH with Two WHEN Phrases 
1168622 7-115 


B 1000 Systems COBOL74 Language Manual 
| Procedure Division 


7-116 


B 1000 Systems COBOL74 Language Manual 
Procedure Division 


VERB FORMAT: SEND 


SEND 


The SEND statement causes a message, a message segment, or a portion of a message or segment to 
be released to one or more output queues maintained by the Data Communication Subsystem. Use of 
the partial message feature (ESI and EGI) requires a participating Data Communication Subsystem that 
supports this construct. Valid syntax for ESI and EGI is ignored by non-participating, non-supporting 
Data Communication Subsystems. Refer to the Communication Section in section 6 of this manual and 
the B 1000 Systems Network Definition Language (NDL) Reference Manual for further information. 


General Formats: 


Format 1: 
| ' SEND cd-name [ FROM identifier-1 ] 
Format 2: 


WITH identifier-2 
WITH ESI 
WITH EMI 
WITH EGIL 


identifier-3 LINE | 
\ integer LINES 


SEND cd-name [FROM identifier-1 | 


BEFORE \ : 
{ AFTER § ADVANCING 


ff 


{ mnemonic-name ! 
PAGE 


Syntax Rules: 


1. Cd-name must reference an output CD. 
2. Identifier-2 must reference a 1-character integer without an operational sign. 


3. When identifier-3 is used in the ADVANCING phrase, it must be the name of an elementary 
integer item. 


4. When the mnemonic-name phrase is used, it must be associated with a CHANNEL number. 
The mnemonic-name is defined in the SPECIAL-NAMES paragraph of the ENVIRONMENT 
DIVISION. 


5. Integer or the value of the data item referenced by identifier-3 may be zero. 
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General Rules: 


All formats: 


1. When a receiving communication device such as a printer, display screen, or card punch, is ori- 


ented to a fixed line size: 


a. Each message or message segment begins at the leftmost character position of the physical 
line. 


b. A message or message segment that is smaller than the physical line size is released so as 
to appear space-filled to the right. 


c. Excess characters of a message or message segment are not truncated. Characters are 
packed to a size equal to that of the physical line and then sent to the device. The process 
continues on the next line with the excess characters. 


2. When a receiving communication device (paper tape punch, or another computer) is oriented 
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to handle variable length messages, each message or message segment begins on the next 
available character position of the communications device. 


. As part of the execution of a SEND statement, the data item referenced by data-name-2 (TEXT 


LENGTH) of the area referenced by cd-name is the user’s indication of the number of leftmost 
character positions of the data item referenced by identifier-1 from which data is to be transfer- 


‘red. 


If the contents of the data item referenced by data-name-2 (TEXT LENGTH) of the area refer- 
enced by cd-name are zero, no characters of the data item referenced by identifier-1 are trans- 
ferred. 


If the contents of the data item referenced by data-name-2 (TEXT LENGTH) of the area refer- 
enced by cd-name are outside the range of zero through the size of the data item referenced 
by identifier-1 inclusive, an error is indicated by the value of the data item referenced by data- 
name-3 (STATUS KEY) of the area referenced by cd-name, and no data is transferred. Refer 
to table 6-3, Communication Status Key Condition, in section 6. 


. As part of the execution of a SEND statement, the contents of the data item referenced by 


data-name-3 (STATUS KEY) of the area referenced by cd-name are updated. Refer to Commu- 
nication Description Structure (CD) in section 6. 


. The effect of having special control characters within the contents of the data item referenced 


by identifier-1 are undefined. 


A single execution of a SEND statement for Format 1 releases only a single portion of a mes- 
sage or Of a message segment to the Data Communication Subsystem. 


A single execution of a SEND statement for Format 2 never releases to the Data Communica- 
tion Subsystem more than a single message or a single message segment as indicated by the 
contents of the data item referenced by identifier-2 or by the specified indicator ESI, EMI, or 
EGI. ; 
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The length of the portion of the message or message segment is defined by rule 3 above. 


The Data Communication Subsystem may not transmit any portion of a message to a commu- 
nication device until the entire message has been placed in the output queue. 


Disposition of a portion of a message not terminated by an EMI or EGI is defined within the 
Data Communication Subsystem. 


Format 2: 


8. 


The contents of the data item referenced by identifier-2 indicates that the contents of the data 
item referenced by identifier-1 are to have associated with them an ending indicator. Table 7-6 
lists the possible values for the ending indicator and the meaning associated with that value. 


A supporting Data Communication Subsystem recognizes these indicators and establishes what- 
ever is necessary to maintain group, message, and segment control as defined in the following 
rules: 


- a. If the contents of the data item referenced by identifier-2 contains a "1", the contents of 
the data item referenced by identifier-1 is associated with an end of segment indicator or 
ESI. 


The ESI indicates to the Data Communication Sybsystem that the message segment is com- 
plete. 


b. If the contents of the data item referenced by identifier-2 contains a "2”, the contents of 
the data item referenced by identifier-1 is associated with an end of message indicator or 
EMI. 


The EMI indicates to the Data Communication Sybsystem that the message is complete. 


c. If the contents of the data item referenced by identifier-2 contains a "3", the contents of 
the data item referenced by identifier-1 is associated with an end of group indicator or 
EGI. 


The EGI indicates to the Data Communication Sybsystem that the group of messages is 
complete. 


The interpretation given to the EGI is dependent upon options as specified in the Data 
Communication Subsystem. 


d. The hierarchy of ending indicators is EGI, EMI, and ESI. An EGI need not be preceded 
by an ESI or EMI. An EMI need not be preceded by an ESI. 
If the content of the data item referenced by identifier-2 is other than a "1", "2", or "3", 
and identifier-1 is not specified, then an error is indicated by the value in the data item 
referenced by data-name-3 (STATUS KEY) of the area referenced by cd-name, and no 
data is transferred. 


1168622 | | : | 7-119 


B 1000 Systems COBOL74 Language Manual 
Procedure Division 


VERB FORMAT: SEND 


9. The ADVANCING phrase allows control of the vertical positioning of each message on a com- 
munication device where vertical positioning is applicable. If vertical positioning is not applica- 
ble on the device, the vertical positioning specified or implied is ignored. 


10. On a device where vertical positioning is applicable and the ADVANCING phrase is not 
specified, automatic advancing is provided to act as if the user has specified AFTER ADVANC- 
ING 1 LINE. 


11. If the ADVANCING phrase is implicitly or explicitly specified and vertical positioning is appli- 
cable, the following rules apply: 


a. 
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If identifier-3 or integer is specified, characters transmitted to the communication device 
are repositioned vertically downward the number of lines equal to the value associated with 
the data item referenced by identifier-3 or integer. 


. If mnemonic-name is specified, characters transmitted to the communication device are po- 


sitioned to the line number corresponding to the CHANNEL number. 


If the BEFORE phrase is used, the message is represented on the communication device 
before vertical repositioning according to General Rules 9a and 9b. 


. If the AFTER phrase is used, the message is represented on the communication device after 


vertical repositioning according to General Rules 9a and 9b. 


If PAGE is specified, characters transmitted to the communication device are represented 
on the device BEFORE or AFTER (depending upon the phrase used) the device is reposi- 
tioned to the next page. If PAGE is specified but page has no meaning in conjunction 
with a specific device, then page advancing is provided to act as if the user has specified 
BEFORE or AFTER ADVANCING 1 LINE. 


Table 7-6. Specifying End Indicators 


Means of Specifying 


Type of Indicator identifier-2 


no indicator 
end of segment 
end of message 


end of group 
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SET 


The SET statement establishes reference points for table handling operations by setting index-names 
associated with table elements. 


General Format: 


Format 1: 
identifier-1 , identifier-2 identifier-3 
SET TO 4 index-name-3 
index-name-1 , index-name-2 integer-1. 
Format 2: 


identifier-4 
SET index-name-4 dios index-name-S] ... 
. integer-2 


Syntax Rules: 


1. All references to index-name-1, identifier-1, and index-name-4 apply equally to index-name-2, 
identifier-2, and index-name-5, respectively. 


2. Identifier-1 and identifier-3 must name index data items, or elementary items described as an 
integer. 


3. Identifier-4 must be described as an elementary numeric integer. 
4. Integer-1 and integer-2 may be signed. Integer-1 may be zero. 


General Rules: 


1. Index-names are considered related to a given table and are defined by being specified in the 
INDEXED BY clause. 


2. If index-name-3 is specified, the value of the index before the execution of the SET statement 
should correspond to an occurrence number of an element in the associated table. 


If index-name-4, index-name-S5 is specified, the value of the index both before and after the 
execution of the SET statement should correspond to an occurrence number of an element in 
the associated table. If index-name-1, index-name-2 is specified, the value of the index after 
the execution of the SET statement should correspond to an occurrence number of an element 
in the associated table. 
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It is permissible to set index-name-1, index-name-2, index-name-4, index-name-5, to any value 
with the following restrictions: 


a. If overflow occurs, the value in the index-name is left-truncated according to the arithmetic 


b. 


rules for a size error condition without a SIZE ERROR ae Refer to the SIZE ERROR 
phrase in this section. 


When a statement using the index-name to refer to a table element is executed, the value 
in the index or the value produced by relative indexing must fall within the range specified 
by the OCCURS clause defining the table. Otherwise, an abnormal termination of. the pro- 
gram occurs. Refer to Indexing in section 2. 


3. When a Format 1 SET statement is executed, the following actions occur: 


a. Index-name-! is set to a value causing it to refer to the table element that corresponds in 


b. 


occurrence number to the table element referenced by index-name-3, identifier-3, or inte- 
ger-1. If identifier-3 is an index data item, or if index-name-3 is related to the same table 
as index-name-l, no conversion takes place. 


If identifier-1 is an index data item, it may be set equal to either the contents of index- 
name-3 or identifier-3, where identifier-3 is also an index data item. No conversion takes 
place in either case. 


c. If identifier-1 is not an index data item, it may be set only to an occurrence number that 


corresponds to the value of index-name-3. Neither identifier-3 nor integer-1 can be used 
in this case. 


d. The process is repeated for index-name-2, identifier-2, etc., if specified. Each time, the val- 


ue of index-name-3 or identifier-3 is used as it was at the beginning of the execution of 
the statement, any subscripting or indexing associated with identifier-1, and so forth, is 
evaluated immediately before the value of the respective data item is changed. 


4. In Format 2, the contents of index-name-4 are incremented (UP BY) or decremented (DOWN 
BY) by a value that corresponds to the number of occurrences represented by the value of inte- 
ger-2 or identifier-4; thereafter, the process is repeated for index-name-5, and so on. Each time, 
the value of identifier-4 is used as it was at the beginning of the execution of the statement. 


5. Data in table 7-7 represents the validity of various operand combinations in the SET statement. 
The general rule reference (for example, 3b) indicates the applicable general rule. 
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Table 7-7. SET Statement Combinations 


‘ Receiving Item 
Sending Item 
Integer Data Item Index-Name Index Data Item 


Integer Literal No/3c Valid/3a No/3b- 
Integer Data Item NO/3c Valid/3a No/3b 
Index-Name Valid/3c Valid/3a Valid/3b* 
Index Data Item No/3c Valid/3a* Valid/3b* 


*No conversion takes place 
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SORT 
The SORT statement creates a sort file two ways: first, by executing input procedures or, second, by 
transferring records from another file. The records are then sorted on a set of specified keys, and in 


the final phase of the sort operation, made available in sorted order, to some output procedures or 
to an output file. 


General Format: 


file-name-1 


ASCENDING | 
ON KEY data-name-1 [ , data-name-2 ] 


DESCENDING | 
ASCENDING 
ON : KEY data-name-3 [, data-name-4] ... 
DESCENDING 


[COLLATING SEQUENCE IS alphabet-name] 


THROUGH 


INPUT PROCEDURE IS _procedure-name-1 | mrosiuremme? 


THRU 


USING file-name- , file-name-3 


THROUGH 


mrocdorenames 


OUTPUT PROCEDURE IS procedure-name-3 | 
ral THRU 


GIVING file-name-4 
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Syntax Rules: 


1. 


dee 


File-name-1 must be described in a sort-merge file description (SD) entry in the DATA DIVI- 
SION. 


. Procedure-name-1 represents the name of an input procedure. Procedure-name-3 represents the 


name of an output procedure. 


. File-name-2, file-name-3, and file-name-4 must be described in a file description entry (FD), not 


in a Sort-Merge file description entry (SD), in the DATA DIVISION. The actual size of the 
logical record(s) described for file-name-2 and file-name-4 must be equal to the actual size of 
the logical record(s) described for file-name-1. If the data descriptions of the elementary items 
that make up these records are not identical, it is the programmer's responsibility to describe 
the corresponding records so as to cause an equal number of character positions to be allocated 
for the corresponding records. 


. Data-name-1, data-name-2, data-name- 3, and data-name-4 are KEY data-names and are subject 


to the following rules: 


a. The data items identified by KEY data-names must be described in records associated with 
file-name-1. 


b. KEY data-names may be qualified. 

c. The data items identified by KEY data-names must not be variable length items. 

d. If file-name-1 has more than one record description, then the data items identified by KEY 
data-names may all be described within one of the record descriptions or in any combina- 
tion of record descriptions. It is not necessary to redescribe the KEY data-names in each 
record description. 

e. None of the data items identified by KEY data-names can be described by an entry which 
contains an OCCURS clause or which is subordinate to an entry which contains an OC- 
CURS clause. 

The words THRU and THROUGH are equivalent. 


SORT statements may appear anywhere except in the declaratives portion of the PROCEDURE 
DIVISION or in an input or output procedure associated with a SORT or MERGE statement. — 


No more than one file-name from a multiple file reel can appear in the SORT statement. 


General Rules: 


1. 


7-124 


The PROCEDURE DIVISION may contain more than one SORT statement appearing any- 


where except: 


a. In the declaratives portion. 


b. In the input and output procedures associated with a SORT or MERGE statement. 
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2. The data-names following the word KEY are listed from left to right in the SORT statement 
in order of decreasing significance without regard to how they are divided into KEY phrases. 
In the format, data-name-1 is the major key, data-name-2 is the next most significant key. 


a. When the ASCENDING phrase is specified, the sorted sequence is from the lowest value 
of the contents of the data items identified by the KEY data-names to the highest value, 
according to the rules for comparison of operands in a relation condition. 


b. When the DESCENDING phrase is specified, the sorted sequence is from the highest value 
of the contents of the data items identified by the KEY data-names to the lowest value, 
according to the rules for comparison of operands in a relation condition. 


3. The collating sequence that applies to the comparison of the nonnumeric key data items 
specified is determined in the following order of precedence: 


a. First, by the collating sequence established by the COLLATING SEQUENCE phrase, if 
specified, in the SORT statement. 


b. Second, by the collating sequence established as the program collating sequence. 


4. The input procedure must consist of one or more paragraphs or sections which appear conti- 
guously in a source program and which do not form a part of any output procedure. In order 
to transfer records to the file referenced by file-name-1, the input procedure must include the 
execution of at least one RELEASE statement. Control must not be passed to the input proce- 
dure except when a related SORT statement is being executed. The input procedure can include 
any procedures needed to select, create, or modify records. The restrictions on the procedural 
statements within the input procedure are as follows: 


a. The input procedure must not contain any SORT or MERGE statements. 


b. The input procedure must not contain any explicit transfers of control to points outside 
the input procedure. ALTER, GO TO, and PERFORM statements in the input procedure 
are not permitted to refer to procedure-names outside the input procedure. COBOL74 
statements that cause an implied transfer of control to declaratives are allowed. 


c. The remainder of the PROCEDURE DIVISION must not contain any transfers of control 
to points inside the input procedure. ALTER, GO TO, and PERFORM statements in the 
remainder of the PROCEDURE DIVISION must not refer to procedure- names within the 
input procedure. 


Violations of these restrictions on procedural statements concerning input procedures are not 
syntaxed by the compiler. It is the responsibility of the programmer to ensure that these restric- 
tions are enforced. 


_ 5. If an input procedure is specified, control is passed to the input procedure before file-name- 
1 is sequenced by the SORT statement. The compiler inserts a return mechanism at the end 
of the last paragraph or section in the input procedure. When control passes the last statement 
in the input procedure, the records released to file-name-1 are sorted. 
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6. The output procedure must consist of one or more paragraphs or sections which appear conti- 
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guously in a source program and which do not form part of any input procedure. In order 
to make sorted records available for processing, the output procedure must include the execu- 
tion of at least one RETURN statement. Control must not be passed to the output procedure 
except when a related SORT statement is being executed. The output procedure may consist 
of any procedures needed to select, modify, or copy the records that are being returned, one 
at a time in sorted order, from the sort file. The restrictions on the procedural statements within 
the output procedure are as follows: 


a. The output procedure must not contain any SORT or MERGE statements. 


b. The output procedure must not contain any explicit transfers of control to points outside 
the output procedure. ALTER, GO TO, and PERFORM statements in the output proce- 
dure are not permitted to refer to procedure-names outside the output procedure. 
COBOL74 statements that cause an implied transfer of control to declaratives are allowed. 


c. The remainder of the PROCEDURE DIVISION must not contain any transfers of control 
to points inside the output procedure. ALTER, GO TO, and PERFORM statements in the 
remainder of the PROCEDURE DIVISION must not refer to procedure-names within the 
output procedure. 


_ Violations of these restrictions on procedural statements concerning output procedures are not 


syntaxed by the compiler. It is the responsibility of the programmer to ensure that these restric- 
tions are enforced. 


. If an output procedure is specified, control passes to it after file-name-1 is sequenced by the 


SORT statement. The compiler inserts a return mechanism at the end of the last paragraph or 
section in the output procedure. When control passes the last statement in the output procedure, 
the return mechanism provides for termination of the sort and then passes control to the next 
executable statement after the SORT statement. Before entering the output procedure, the sort 
procedure reaches a point at which it can select the next record in sorted order when requested. 
The RETURN statements in the output procedure are the requests for the next record. 


. If the USING phrase is specified, all the records in file-name-2 are transferred automatically 


to file-name-1. At the time of execution of the SORT statement, file-name-2 must not be open. 
The SORT statement automatically initiates the processing of, makes available the logical rec- 
ords for, and terminates the processing of file-name-2. These implicit functions are performed 
such that any associated USE procedures are executed. The terminating function for all files 
is performed as if a CLOSE statement, without optional phrases, had been executed for each 


- file. The SORT statement also automatically performs the implicit functions of moving the rec- 


ords from the file area of file-name-2 to the file area for file-name-1 and the release of records 
to the initial phase of the SORT operation. 


. If the GIVING phrase is specified, all the sorted records in file-name-1 are automatically written 


on file-name-4 as the implied output procedure for this SORT statement. At the time of execu- 
tion of the SORT statement file-name-4 must not be open. The SORT statement automatically 
initiates the processing, releases logical records to and terminates the processing of file-name- 
4, These implicit functions are performed so that any associated USE procedures are executed. 
The terminating function is performed as for a CLOSE statement, without optional phrases, 
had been executed for the file. The SORT statement also automatically performs the implicit 
functions of the return of the sorted records from the final phase of the SORT operation and 
the moving of the records from the file area for file-name-1 to the file area for file-name-4. 
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START 


The START statement provides a basis for logical positioning within an indexed or relative file, for 
subsequent sequential retrieval of records. 


General Format: 


IS EQUAL TO 
IS = 


START file-name gREATES Ta data-name 


IS NOT LESS THAN 
IS NOT < 


[; INVALID KEY imperative-statement | 


NOTE 
The required relational characters '>’, '<’', and '=’ are not underlined 
to avoid confusion with other symbols such as.'’>’, meaning greater than 


or equal to. 
Syntax Rules: 
iF File-name must be ine name of an Indexed or Relative File. 
2. File-name must be the name of a file with sequential or dynamic access. 
3. Data-name may be qualified. 


4. The INVALID KEY phrase must be specified if no applicable USE procedure is specified for 
file-name. 


5. If fileename is the name of an Indexed File, and if the KEY phrase is specified, data-name may 
reference a data item specified as a record key associated with file-name. Data-name may refer- 
ence any data item of category alphanumeric subordinate to the data-name of a data item 


specified as a record key associated with filename whose leftmost character position corre- 
sponds to the leftmost character position of that record key data item. 


6. Data-name, if specified for a Relative File, must be the data item specified in the RELATIVE 
KEY phrase of the associated file control entry. 


~ General Rules: 


1. File-name must be open in the INPUT or I-O mode at the time that the START statement is 
executed. Refer to the OPEN statement in this section. 


2. If the KEY phrase is not specified, the relational operator ‘IS EQUAL TO’ is implied. 
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VERB FORMAT: START 


. The type of comparison specified by the relational operator in the KEY phrase occurs between 


a key associated with a record in the file referenced by file-name and a data item as specified 
in General Rule 5. If file-name references an indexed file and the operands are of unequal size, 
comparison proceeds as though the longer operand were truncated on the right, so that its 
length is equal to that of the shorter operand. All other nonnumeric comparison rules apply 
except that the presence of the PROGRAM COLLATING SEQUENCE clause has no effect 
on the comparison. Refer to Comparison of Nonnumeric Operands in this section. 


a. The current record pointer is positioned to the first logical record currently existing in the 
file whose key satisfies the comparison. 


b. If the comparison is not satisfied by any record in the file, an INVALID KEY condition 
exists, the execution of the START statement is unsuccessful, and the position of the cur-’ 
rent record pointer is undefined. Refer to Invalid Key Condition in section$5. 


. The execution of the START statement causes the value of the FILE STATUS data item, if 


any, associated with file-name to be updated. Refer to I-O Status in section$5. 


. For an Indexed File using the KEY phrase, the comparison described in General Rule 3 uses 


the data item referenced by data-name. 


. For an Indexed File not using the KEY phrase, the comparison described in General Rule 3 


uses the data item referenced in the RECORD KEY clause associated with file-name. 


. For a Relative File, the comparison described in General Rule 3 uses the data item referenced 


by the RELATIVE KEY clause associated with file-name. 


. Upon completion of the successful execution of the START statement, a key of reference is 


established and used in subsequent Format | READ statements as follows: 


a. If the KEY phrase is. not, specified, the prime record key specified for file-name becomes 
the key of reference. 


b. If the KEY phrase is specified, and data-name is specified as a record key for file-name, 
that record key becomes the key of reference. 


c. If the KEY phrase is specified, and data-name is not specified as a record key for file- 
name, the record key whose leftmost character position corresponds to the leftmost charac- 
ter. position of the data item specified by data-name, becomes the key of reference. 


d. Refer to the READ statement in this section. 


9. For an Indexed File, if the execution of the START statement is not successful, the key of ref- 


erence is undefined. 
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STOP 


The STOP statement causes a permanent or temporary suspension of the execution of the object pro- 
gram. 


General Format: 


RUN \ 
literal 


STOP { 


Syntax Rules: 


1. The literal may be numeric, nonnumeric, or any figurative constant except ALL. 
2. If the literal is numeric, then it must be an unsigned integer. 


3. If a STOP RUN statement appears in a consecutive sequence of imperative statements within 
a sentence, it must appear as the last statement in that sequence. 


General Rules: 


1. If the RUN phrase is used, then the ending procedure established by the installation and/or 
the compiler is instituted. 


2. If STOP literal is specified, the literal is displayed on the Operator Display Terminal (ODT), 
and the program issues an ACCEPT message. When the operator enters the AX message, con- 
tinuation of the object program begins with the next executable statement in sequence. 
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STRING 


The STRING statement concatenates partial or complete contents of two or more data items into a 
single data item. 


General Format: 


identifier-1 identifier-2 
STRING ‘ 
literal-1 literal-2 
identifier-3 
DELIMITED BY ies 


SIZE 


identifier-4 | identifier-5 
( literal-4 literal-5 


INTO identifier-7 [WITH POINTER _ identifier-8 ] 


identifier-6 
DELIMITED BY literal-6 
SIZE 


[; ON OVERFLOW imperative-statement | 


Syntax Rules: 
1. Each literal may be any figurative constant without the optional word ALL. 


2. All literals must be described as nonnumeric literals, and all identifiers, except identifier-8, iden- 
tifier-9, and identifier-10, must be described implicitly or explicitly, as usage is DISPLAY. 


3. Identifier-7 must represent an alphanumeric data item without editing symbols or the JUSTI- 
FIED clause. 


4. Identifier-8 must represent an elementary numeric integer data item of sufficient size to contain 
a value equal to the size of the area referenced by identifier-7 plus 1. The symbol ’P’ may 
not be used in the PICTURE character-string of identifier-8. 


5. Where identifier-1, identifier-2, .... or identifier-3 is an elementary numeric data item, it must 
be described as an integer without the symbol ‘P’ in the PICTURE character-string. 
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VERB FORMAT: STRING 


General Rules: 


1. All references to identifier-1, identifier-2, identifier-3, identifier-9, literal-1, literal-2, literal-3, 
and integer-1 apply equally to identifier-4, identifier-5, identifier-6, identifier- 10, literal-4, liter- 
al-5, literal-6 and integer-2, respectively, and all recursions thereof. 


2. Identifier-1, literal-1, identifier-2, literal-2, represent the sending items. Identifier- 7 represents 
the receiving item. 


3. Literal-3, identifier-3, indicate the character(s) delimiting the move. If the SIZE phrase is used, 
the complete data item defined by identifier-1, literal-1, identifier-2, literal-2, is moved. When 
a figurative constant is used as a delimiter, it stands for a single character nonnumeric literal. 


4. When a figurative. constant is specified as literal-1, literal-2, literal-3, it refers to an implicit 
one character data item whose usage is DISPLAY. 


5. When the STRING statement is executed, the transfer of data is governed by the following 
rules: 


a. Those characters from literal-1, literal-2, or from the contents of the data item referenced 
by identifier-1, identifier-2, are transferred to the contents of identifier-7 according to the 
rules for alphanumeric to alphanumeric moves: however, no space-filling is provided. Refer 
to the MOVE Statement in this section. 


b. If the DELIMITED phrase is specified without the SIZE phrase, the contents of the data: 
item referenced by identifier-1, identifier-2, or the value of literal-1, literal-2, are transfer- 
red to the receiving data item in the sequence specified in the STRING statement beginning 
with the leftmost character and continuing from left to right until the end of the data item 

‘is reached, or until the character(s) specified by literal-3, or by the contents of identifier- 
3 are encountered. The character(s) specified by literal-3 or by the data item referenced 
by identifier-3 are not transferred. | 


c. If the DELIMITED phrase is specified with the SIZE phrase, the entire contents of literal- - 
1, literal-2, or the contents of the data item referenced by identifier-1, identifier-2, are 
transferred, in the sequence specified in the STRING statement, to the data item referenced 
by identifier-7 until all data has been transferred or the end of the data item referenced 
by identifier-7 is reached. 


6. If the POINTER phrase is specified, identifier-8 is explicitly available to the programmer, and 
he is responsible for setting its initial value. The initial value must not be less than 1. 


7. If the POINTER phrase is not specified, the following General Rules 8, 9, 10, 11, and 12 apply 
as if the user had specified identifier-8 with an initial value of 1. 
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10. 


11. 


12. 


VERB FORMAT: STRING 


. When characters are transferred to the data item referenced by identifier-7, the moves behave 


as though the characters were moved one at a time from the source into the character position 
of the data item referenced by identifier-7 designated by the value associated with identifier- 
8. Identifier-8 is increased by one before the move of the next character. The value associated 
with identifier-8 is changed during execution of the STRING statement only by the behavior 
specified in this general rule. 


. At the end of execution of the STRING statement, only the portion of the data item referenced 


by identifier-7 that was referenced during the execution of the STRING statement is changed. 
All other portions of the data item referenced by identifier-7 contain data that was present be- 
fore this execution of the STRING statement. 

If at any point at or after initialization of the STRING statement, but before execution of the 
STRING statement is completed, the value associated with identifier-8 is either less than 1 or 
greater than the number of character positions in the data item referenced by identifier-7, no 
additional data is transferred to the data item referenced by identifier-7, and the imperative 
statement in the ON OVERFLOW phrase is executed, if specified. 


If the ON OVERFLOW phrase is not specified, when the conditions described in General Rule 
10 are encountered, control is transferred to the next executable statement. 


Integer-1, identifier-9, indicate the number of characters to be moved. 


Examples: 


Assume that: 


NOW = A, B, C, DD... Z (26 characters) 

CHNG = GHI : 
LATER = LLL 

AFTR = A, B, C,.D... Z (26 characters) 

THEN = TTTT 


1. STRING LATER, "NEW", THEN, SPACE DELIMITED BY SIZE INTO AFTR 


After execution AFTR contains: 


a ee ee eS ne eS Se a 


bab Ne Ee Wf OT. TT EWN OP QRS. TU VW XY OZ 


SO ee ce ee ee Se ee 


2. MOVE 1 TO HERE. STRING THEN, “NEXT”, SPACE, LATER DELIMITED BY SIZE; 


NOW DELIMITED BY CHNG INTO AFTR WITH POINTER HERE 


After execution AFTR contains: 


] 


pote tat atti tata tepid tatitetitetetotetetitetitet 


TTTTNEXT be A BOO DE oR Se TP AO Wee. Ok 


abana papain papa ata pata tata t iti ti tata ta tat t-tet—+ 


{ not changed } - 
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3. MOVE 8 TO HERE. STRING THEN, “NEXT”, SPACE, LATER DELIMITED BY SIZE; 
NOW DELIMITED BY CHNG INTO AFTR WITH POINTER HERE 


After execution AFTR contains: 


8 
papa p apap apap bi pa papitata pitta tata te tated titetet—4+ 
ABCDEFGTTTTNE XT LoL A BG DEF Z 
apap a tata t apap appetite pitta titi patatitite pated 
{ not changed } ; 
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SUBTRACT 


The SUBTRACT statement is used to subtract one or the sum of two or more numeric data items 
from one or more items, and set the values of one or more items equal to the results. 


General F ormat: 


Format 1: 
identifier-1 identifier-2 
SUBTRACT ... EROM identifier-m [ROUNDED] 
literal-1 , literal-2 
| [ . identifiern [ROUNDED]] ... [;ON SIZE ERROR imperative-statement | 
Format 2: 
identifier-1 , identifier-2 identifier-m 
SUBTRACT ... FROM 4 
literal-1 , literal-2 literal-m 
GIVING identifier-n [ROUNDED] [, identifier-o [ROUNDED] ] 
[3 ON SIZE ERROR imperativestatement] 
Format 3: 
CORRESPONDING 
SUBTRACT identifier-1 FROM identifier-2 [ROUNDED] 
CORR 


SIZE ERROR imperative-statement ] 


rr i ch 
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Syntax Rules: 


1. Each identifier must refer to a numeric elementary item except that 


a. In Format 2, each identifier following the word GIVING must refer to either an pemcntaty 
numeric item or to an elementary numeric edited item. 


b. In Format 3, each identifier must refer to a group item. 


2. Each literal must be a numeric literal. 


3. CORR is an abbreviation for CORRESPONDING. 


General Rules: 


1. Additional rules and explanations related to this statement are given in the appropriate 


paragraphs. Refer to Intermediate Data Item, ROUNDED Phrase, SIZE ERROR Phrase, COR- 
RESPONDING Phrase, Arithmetic Statements, Overlapping Operands, and Multiple Results in 
Arithmetic Statements in this section. 


. In Format 1, all literals or identifiers preceding the word FROM are added together, and this 


total is subtracted from the current value of identifier-m. The result is immediately stored into 
identifier-m, and this process is repeated respectively for each operand following the word 
FROM. 


. In Format 2, all literals or identifiers preceding the word FROM are added together, the sum 


is subtracted from literal-m or identifier-m, and the result of the subtraction is stored as the 
new value of identifier-n, identifier-o, etc. 


If Format 3 is used, data items in identifier-1 are subtracted from and stored into corresponding 
data items in identifier-2. 


Examples: 


Assume as initial values : X=2, Y=10, Z=15, TOT=50, and SUB=30. 


Format 1: 
SUBTRACT X FROM TOT. results TOT=48 
SUBTRACT X, Y, Z, FROM TOT, SUB. results TOT=23, SUB=3 
Format 2: 
SUBTRACT X, Y FROM SUB GIVING TOT. results TOT=18 
SUBTRACT X, Y,FROM Z GIVING TOT, SUB. results TOT=3, SUB=3 
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For Format 3 assume that the following structures have the initial value in parentheses. 


01 NOW 


02 CR (20) 
02 TR (5) 


The following statement 


SUBTRACT CORRESPONDING NOW FROM LATER. 


results in 


O2 LATER 


Note, the only data names whose values changed 


1168622 


O1 LATER 


O05 AB (10) 
05 TR 


are FO and TR. 


VERB FORMAT: SUBTRACT 
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UNSTRING 


The UNSTRING statement causes contiguous data in a sending field to be separated and placed into 
one or more receiving fields. 


General Format: 


Format 1: 


UNSTRING identifier-1 


identifier-2 identifier-3 
DELIMITED BY [ALL] | ,OR [ALL] 


literal-1 literal-2 


INTO identifier4 [, DELIMITER IN identifier-5 ] [ , COUNT IN identifier-6 | 
| , identifier-7 Ii DELIMITER IN identifier-8 ] [ , COUNT IN identifier-9 ] | 
[WITH POINTER identifier-10] [| TALLYING IN identifier-11] 


[; ON OVERFLOW imperative-statement ] 


Format 2: 


UNSTRING _ identifier-1 


identifier-12 
INTO identifier-4 


integer-| 


identifier-1 3 
, identifier-7 FOR aye 


integer-2 


(WITH POINTER identifier-10] [TALLYING IN identifier-11 ] 


[; ON OVERFLOW imperative-statement | 
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VERB FORMAT: UNSTRING 


Syntax Rules: 


1. 


Each literal must be a nonnumeric literal. In addition, each literal may be any figurative con- 
stant without the optional word ALL. 


. Identifier-1, identifier-2, identifier-3, identifier-5, and identifier-8 must be described, implicitly 


or explicitly, as alphanumeric data items. 


. Identifier-4 and identifier-7 may be described as either alphabetic, alphanumeric, or numeric 


and must be described as usage is DISPLAY. However, the alphabetic symbol 'B’ and the nu- 
meric symbol ’P’ may not be used in the PICTURE character-string. 


. Identifier-6, identifier-9, identifier-10, and identifier-11 must be described as elementary numeric 


integer data items (except that the symbol ’P’ may not be used in the PICTURE character- 
string). 


No identifier may name a level 88 entry. 


. The DELIMITER IN phrase and the COUNT IN phrase may be specified only if the DELI- 


MITED BY phrase is specified. 


. Identifier-12 and identifier-13 must be described as elementary numeric integer data items (ex- 


cept that the symbol ’P’ may not be used in the PICTURE character-string). 


General Rules: 


1. 


All references to identifier-2, literal-1, identifier-4, identifier-5, identifier-6, identifier-12, and in- 
teger-1, apply equally to identifier-3, literal-2, identifier-7, identifier-8 identifier-13, and integer- 
2, respectively, and all recursions thereof. 


. Identifier-1 represents the sending area. 


. Identifier-4 represents the data receiving area. Identifier-5 represents the receiving area for de- 


limiters. 


Literal-1 or the data item referenced by identifier-2 specifies a delimiter. In Format-2, integer- 
1 or the data item referenced by identifier-12 specifies a count of the number of characters 
within identifier-1 which is moved to identifier-4. If the number of characters remaining in the 
data item referenced by identifier-1 is less than the number of characters specified by integer- 
1 or the data item referenced by identifier-12, then the short field is transferred according to 
General Rule 13c. 


. Identifier-6 represents the count of the number of characters within the data item referenced 


by identifier-1 isolated by the delimiters for the move to identifier-4. This value does not include 
a count of the delimiter character(s). 


. The data item referenced by identifier-10 contains a value that indicates a relative character po- 


sition within the area defined by identifier-1. 
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10. 


11. 


12. 


. The data item referenced by identifier-11 is a counter that records the number of data items 


acted upon during the execution of an UNSTRING statement. 


. When a figurative constant is used as a delimiter, it stands for a single character nonnumeric 


literal. 


When the ALL phrase is specified, one occurrence or two or more contiguous occurrences of 
literal-1 (figurative constant or not) or the contents of the data item referenced by identifier- 
2 are treated as only one occurrence, and this occurrence is moved to the receiving data item 
according to General Rule 13d. 


. When any examination encounters two contiguous delimiters, the current receiving area is either 


space or zero filled according to the description of the receiving area. 


Literal-1 or the contents of the data item referenced by identifier-2 can contain any character 
in the computer's character set. : 


Each literal-1 or data item referenced by identifier-2 represents one delimiter. When a delimiter 
contains two or more characters, all of the characters must be present in contiguous positions 
of the sending item, and in the order given to be recognized as a delimiter. 


When two or more delimiters are specified in the DELIMITED BY phrase, an 'OR’ condition 
exists between them. Each delimiter is compared to the sending field. If a match occurs, the 
character(s) in the sending field are considered to be a single delimiter. No character(s) in the 
sending field can be considered a part of more than one delimiter. 


Each delimiter is applied to the sending field in the sequence specified in the UNSTRING state- 
ment. 


13. When the UNSTRING statement is initiated, the current receiving area is the data item refer- 
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enced by identifier-4. Data is transferred from the data item referenced by identifier-1 to the 
data item referenced by identifier-4 according to the following rules: 


a. If the POINTER phrase is specified, the string of characters referenced by identifier-1 is 
examined beginning with the relative character position indicated by the contents of the 
data item referenced by identifier-10. If the POINTER phrase is not specified, the string 
of characters is examined beginning with the leftmost character position. 


b. If the DELIMITED BY phrase is specified, the examination proceeds left to right until a 
delimiter specified by the value of literal-1 or the data item referenced by identifier-2 is 
encountered. Refer to General Rule 11. If the DELIMITED BY phrase is not specified, 
the number of characters examined is equal to the size of the current receiving area. How- 
ever, if the sign of the receiving item is defined as occupying a separate character position, 
the number of characters examined is one less than the size of the current receiving area. 


If the end of the data item referenced by identifier-1 is encountered before the delimiting 
condition is met, the examination terminates with the last character examined. 


c. The characters examined, excluding any delimiting characters(s), are treated as an elemen- 
tary alphanumeric data item, and are moved into the current receiving area according to 
the rules for the MOVE statement. Refer to the MOVE statement in this section. 


14. 


1: 


16. 
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d. If the DELIMITER IN phrase is specified, the delimiting character(s) are treated as an 
elementary alphanumeric data item and are moved into the data item referenced by identi- 
fier-5 according to the rules for the MOVE statement. Refer to the MOVE statement for 
additional information. If the delimiting condition is the end of the data item referenced 
by identifier-1, then the data item referenced by identifier-S is space-filled. 


e. If the COUNT IN phrase is specified, a value equal to the number of characters examined, 
excluding any delimiter character(s), is moved into the area referenced by identifier-6 ac- 
cording to the rules for an elementary move. 


f. If the DELIMITED BY phrase is specified, the string of characters is further examined be- 
ginning with the first character to the right of the delimiter. If the DELIMITED BY phrase 
is not specified, the string of characters is further examined beginning with the character 
to the right of the last character transferred. 


g. After data is transferred to the data item referenced by identifier-4, the current receiving 
area is the data item referenced by identifier-7. The behavior described in General Rules 
13b through 13f is repeated either until all the characters are exhausted in the data item 
referenced by identifier-1 or until there are no more receiving areas. 


The initialization of the contents of the data items associated with the POINTER phrase or 
the TALLYING phrase is the responsibility of the user. 


The contents of the data item referenced by identifier-10 are incremented by one for each char- 
acter examined in the data item referenced by identifier-1. When the execution of an UNSTR- 
ING statement with a POINTER phrase is completed, the contents of the data item referenced 
by identifier-10 will be a value equal to the initial value plus the number of characters exam- 
ined in the data item referenced by identifier-1. 


When the execution of an UNSTRING statement with a TALLYING phrase is completed, the 
contents of the data item referenced by identifier-11 contains a value equal to its initial value 
plus the number of data receiving items acted upon. 


Any of the following situations causes an overflow condition: 


a. An UNSTRING statement is initiated, and the value in the data item referenced by identifi- 
er-10 is less than 1 or greater than the size of the data item referenced by identifier-1. 


b. If, during execution of an UNSTRING statement, all data receiving areas have been acted 
upon, and the data item referenced by identifier-1 contains characters that have not been 
examined. 


c. An UNSTRING is initiated, and the value in the data item referenced by identifier-12 is 
less than 1 or greater than the size of the data item referenced by identifier-1. 


d. If, during execution of an UNSTRING statement, all data receiving areas have been acted 
upon, and the number of characters acted upon is less than the value of identifier-12 or 
integer-1. 
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18. An overflow condition occurs if during the execution of an UNSTRING, the value of the 
pointer item (identifier-10) becomes less than or greater than the number of characters in the 
sending item, or if all the receiving items have been acted upon and the sending item. still con- 


tains data characters that have not been examined. 


When an overflow condition exists, the UNSTRING operation is terminated. If an ON OVER- 
FLOW phrase has been specified, the imperative statement included in the ON OVERFLOW 
phrase is executed. If the ON OVERFLOW phrase is not specified, control is transferred to 


the next executable statement. 


19. The evaluation of subscripting and indexing for the identifiers is as follows: 


a. Any subscripting or indexing associated with identifier-1, identifier-10, identifier-11 is eval- 
uated only once, immediately before any data is transferred as a result of the execution 


of the UNSTRING statement. 


b. Any subscripting or indexing dssociated with identifier-2, identifier-3, identifier-4, identifi- 
er-5, identifier-6 is evaluated immediately before the transfer of data into the respective 


data item. 


Examples: 


Assume that ALPHA = ABC FGRSZXUKL, that the size of each of the receiving data items 


— ITEM-1, ITEM-2, or ITEM-4 is equal to 5, and that ITEM-3 is equal to 4. 


1. UNSTRING ALPHA INTO ITEM-1, ITEM-2, ITEM-3, ITEM-4 


2. UNSTRING ALPHA DELIMITED BY "X”" INTO ITEM-1, ITEM-2, ITEM-3 
3. UNSTRING ALPHA DELIMITED BY ALL "X" INTO ITEM-1, ITEM-2, ITEM-3 


4. UNSTRING ALPHA DELIMITED BY "X” OR "H" INTO ITEM-1, ITEM-2, ITEM-3 


After execution the contents of the receiving fields are as follows. 
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1TEM-1 1TEM-2 
t—+-+-4+-4-+ 9 $o$-+-4+-4-+ 
1 A BCH X EF GX X 
tot—t-t-+-+ 0 $-4-4-4-4-4+ 


tat-t-t-+-4 9 $-4-4-4-+-+ 


ITEM-3 
+-+-+-4+-+ 
ZX1dJ 
+-+-+-+-+ 
+-+-+-+-4+ 
+-+-4+-4+-+ 
+-+-+-+-+ 

Z 
+-+-4-+-+ 
+-+-+-4+-4+ 


EF G 
+-+-+-+-+ 


ITEM- 4 
+-+-4+-+-+-4 
KL 
+—+-+-+-4-+ 
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USE 


The USE statement specifies procedures for input-output error handling that are in addition to the stan- 
dard procedures provided by the input-output control system. 


General Format: 


( EXCEPTION 
USE AFTER STANDARD PROCEDURE ON 
ERROR 


file-name-1 [, file-name-2 | be 
| INPUT 
OUTPUT : 
(~ 
EXTEND 


Syntax Rules: 


1. A USE statement, when present, must immediately follow a section header in the Declaratives 
Section and must be followed by a period followed by a space. The remainder of the section 
must consist of zero, one, or more procedural paragraphs that define the procedures to be used. 


2. The USE statement only defines the conditions calling for the execution of the USE procedures, 
and is. never executed. 


3. The same file-name can appear in a different specific arrangement of the format. Appearance 
of a file-name in a USE statement must not | cause the simultaneous request for execution of 
more than one USE procedure. 


4. The words ERROR and EXCEPTION are synonymous and may be used interchangeably. 


5. The files implicitly or explicitly referenced in a USE statement need not all have the same or- 
ganization or access. 


6. EXTEND can only be used for Sequential Files. 

- General Rules: 

1. The designated procedures are executed two ways: first, by the input-output system after com- 
pleting the standard input-output error routine, or second, upon recognition of the INVALID 
KEY or AT END conditions when the INVALID KEY phrase or AT END phrase has not been 


specified in the input-output statement. 


2. After execution of a USE procedure, control is returned to the routine that caused the USE 
procedures to be invoked. 
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3. Within a USE procedure, there must not be any reference to any nondeclarative procedures. 
Conversely, in the nondeclarative portion, there must be no reference to procedure-names that 
appear in the declarative portion, except that PERFORM statements may refer to a USE state- 
ment or to the procedures associated with such a USE statement. 


4. Within a USE procedure, there must not be the execution of any statement that causes the 


execution of a previously invoked USE procedure that has not yet returned control to the invok- 
ing routine. 
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WRITE 


The WRITE statement releases a logical record for an output file. It can also be used for vertical posi- 
tioning of lines within a logical page. 


General Format: 


WRITE record-name [FROM identifier-1 | 


identifier-2 LINE 
Sarre aes \ ante | 
ADVANCING | | : 
AFTER mnemonic-name | 
‘ PAGE 


,————— 


( END-OF-PAGE 
= AL imperative-statement 


‘zor 
Format 2: 
WRITE record-name [FROM identifier-1 ] 
[: INVALID KEY imperative-statement ] 
Format 3: 


Syntax Rules: 


1. Record-name and identifier-1 must not reference the same storage area. 


2. When mnemonic-name is specified, it must be associated with a CHANNEL number. The mne- 
monic-name is defined in the SPECIAL-NAMES paragraph of the ENVIRONMENT DIVI- 
SION. 


3. The record-name is the name of a logical record in the FILE SECTION of the DATA DIVI- 
SION and may be qualified. 


4. When identifier-2 is used in the ADVANCING phrase, it must be the name of an elementary 
integer data item. 
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5. Integer-1 or the value of the data item referenced by identifier-2 may be zero. 


6. If the END-OF-PAGE phrase is specified, the LINAGE clause must be specified in the file de- 
scription entry (FD) for the associated file. 


7. The words END-OF-PAGE and EOP are equivalent. 


8. The ADVANCING mnemonic-name phrase cannot be specified when writing a record to.a file 
whose file description entry contains the LINAGE clause. 


9. Format 1 must be used if the ACTUAL KEY phrase is not specified in the file-control entry 
for the file associated with record-name. Format 2 must be used if the ACTUAL KEY phrase 
is specified in the file-control entry for the file associated with record-name. 


10. Format 2 is used for Relative and Indexed Files and also Sequential Files in the Random access 
mode. 


11. In Format 2, the INVALID KEY phrase must be specified if an applicable use procedure is 
not specified for the associated file. 


General Rules: 
These rules follow under the following headings: 
Mass and Non-Mass Storage Files 
Non-Mass Storage Files 
Mass Storage Files . 
1) Sequential Files - : 


2) Indexed Files 
3) Relative Files 


Mass and Non-Mass Storage Files 


1. The associated file must be open in the OUTPUT, INPUT-OUTPUT, or EXTEND mode at 
the time of the execution of this statement, and must not be a SORT or MERGE File. Refer 
to the OPEN statement in this section. 


2. The execution of a WRITE statement has no effect upon either the contents or accessibility 
of the record area. If the associated file is named in the SAME RECORD AREA clause, the 
logical record is also available to the program as a record of other files referenced in the same 
SAME RECORD AREA clause; the associated output file and the file associated with record- 
name. 
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VERB FORMAT: WRITE 
The results of the execution of the WRITE statement with the FROM phrase is equivalent to 
the execution of 
a. The statement: 
MOVE identifier-1 TO record-name 
according to the rules specified for the MOVE statement, followed by 
b. The same WRITE statement without the FROM phrase. 


* The contents of the record area before the execution of the implicit MOVE statement have 
no effect on the execution of this WRITE statement. 


The current record pointer is unaffected by the execution of a WRITE statement. 


. The execution of the WRITE statement causes the value of the FILE STATUS data item, if 


any, associated with the file to be updated. Refer to I-O Status in section 5. 


. The maximum record size for a file is established when the file is created and must not subse- 


quently be changed. 


. The number of character positions on a mass storage device required to store a logical record 


in a file may or may not be equal to the number of character positions defined by the logical 
description of that record in the program. 


The execution of the WRITE statement releases a logical record to the operating system. 


Non-Mass Storage Files 


9. 


Both the ADVANCING phrase and the END-OF-PAGE phrase allow control of the vertical 
positioning of each line on a representation of a printed page. If the ADVANCING phrase is 
not used, automatic advancing is provided to act as if the user had specified AFTER AD- 
VANCING 1 LINE. If the ADVANCING phrase is used, advancing is provided as follows: 


a. If identifier-2 is specified, the page is advanced the number of lines equal to the current 
value of identifier-2. 


b. If integer-1 is specified, the page is advanced the number of lines equal to the value of 
integer-1. 


c. If mnemonic-name is specified, the page is advanced to the line number corresponding to 
the CHANNEL number. 


d. If the BEFORE sivaes is used, the line is written before the page is advanced according 
to rules 9a, 9b, and 9c. 


e. If the AFTER phrase is used, the line is written after the page is advanced according to 
rules 9a, 9b, and 9c. 
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f. If PAGE is specified, the record is written on the logical page BEFORE or AFTER (de- 
pending on the phrase used) the device is repositioned to the next logical page. If the rec- 
ord to be written is associated with a file containing a LINAGE clause, the repositioning 
is to the first line that can be written on the next logical page as specified in the LINAGE 
clause. If the record to be written is associated with a file which does not contain a 
LINAGE clause, the repositioning is to CHANNEL | or line 1 of the next logical page 
when appropriate for the hardware device. 


If PAGE has no meaning in conjunction with a specific device, then advancing is provided 
by the compiler to act as if the user had specified BEFORE or AFTER ADVANCING 
1 LINE. In either case, page positioning depends on the phrase used. 


10. If the logical end of the page is reached during the execution of a WRITE statement with the 


11. 


12. 
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END-OF-PAGE phrase, the imperative-statement specified in the END-OF-PAGE phrase is 
executed. The logical end is specified in the LINAGE clause associated with record-name. 


An end-of-page condition is reached whenever the execution of a given WRITE statement with 
the END-OF-PAGE phrase causes printing or spacing within the footing area of a page body. 
This occurs when the execution of such a WRITE statement causes the LINAGE-COUNTER 
to equal or exceed the value specified by integer-2 or the data item referenced by data-name- 
2 of the LINAGE clause, if specified. In this case, the WRITE statement is executed and then 
the imperative statement in the END-OF-PAGE phrase is executed. 


An automatic page overflow condition is reached whenever the execution of a given WRITE 
statement (with or without an END-OF-PAGE phrase) cannot be fully accommodated within 
the current page body. 


Overflow occurs when a WRITE statement, if executed, causes the LINAGE-COUNTER to ex- 
ceed the value specified by integer-1 or to exceed the data item referenced by data-name-1 of 
the LINAGE clause. In this case, the record is written (depending on the phrase used) on the 
logical page before or after the device is repositioned to the first line that can be written on 
the next logical page as specified in the LINAGE clause. The imperative statement in the END- 
OF-PAGE clause, if specified, is executed after the record is written and the device has been 
repositioned. 


If integer-2 or data-name-2 of the LINAGE clause is not specified, no end-of-page condition 
distinct from the page overflow condition is detected. In this case, the end-of-page condition 
and page overflow condition occur simultaneously. 


If integer-2 or data-name-2 of the LINAGE clause is specified, but the execution of a given 


_ WRITE statement would cause LINAGE-COUNTER to simultaneously exceed the value of 


both integer-2 (or the data item referenced by data-name-2) and integer-1 (or the data item ref- 
erenced by data-name-1), then the operation proceeds as if integer-2 or data-name-2 had not 
been specified. 


After the recognition of an end-of-reel or an end-of-unit of an output file that is contained 
on more than one physical reel/unit, the WRITE statement performs the following operations: 


a. The standard ending reel/unit label procedure. 


b. A reel/unit swap. 


Mass Storage Files 


13. 


B 1000 Systems COBOL74 Language Manual 
Procedure Division 


VERB FORMAT: WRITE 


c. The standard beginning reel/unit label procedure. 


sg 


When the INVALID KEY condition is recognized, the execution of the WRITE statement is 


unsuccessful. The contents of the record area are unaffected and the FILE STATUS data item, 
if any, associated with the file-name of the associated file is set to a value indicating the cause 
of the condition. Execution of the program proceeds according to the rules stated for the IN- 
VALID KEY condition. Refer to I-O Status in section 5. 


Sequential Files: 


14. When an attempt is made to write beyond the externally defined boundaries of a Sequential 


15. 


16. 


is 


18. 


19, 


File, an exception condition exists and the contents of the record area are unaffected. The fol- 
lowing action takes place: 


a. The value of the FILE STATUS data item, if any, of the associated file is set to a value 
indicating a boundary violation. Refer to I-O Status in section 5. 


b. If a USE AFT ER STANDARD EXCEPTION declarative is explicitly or implicitly specified 
for the file, that declarative procedure is then executed. 


c. If a USE AFTER STANDARD EXCEPT ION declarative is not explicitly or implicitly spec- 
ified for the file, the result is undefined. 


If the ACTUAL KEY phrase is specified for a mass storage file whose access mode is sequen- 
tial, the successful execution of a Format 2 WRITE statement updates the contents of the AC- 
TUAL KEY data item to the ordinal number of the logical record written. 


For a mass storage file whose access mode is sequential, the execution of a Format 2 WRITE 
statement releases the record area to the next logical record in the file. 


For a mass storage file whose access mode is sequential, the INVALID KEY condition exists 
when a maximum logical size is specified for the file and no more logical records may be writ- 
ten. 


For a mass storage file whose access mode is random, the execution of a Format 2 WRITE 
statement releases the record area to the logical record of the file specified by the contents of 
the ACTUAL KEY data item. 


For a mass storage file whose access mode is random, an INVALID KEY condition exists when 
the value of the ACTUAL KEY data item is less than 1 or greater than the ordinal number 
of the last logical record allowed for the file, provided that the maximum logical size of the 
file is specified. 
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Indexed Files: 


24. For an Indexed File, execution of the WRITE statement causes the contents of the record area 
to be released. The contents of the record keys are utilized such that subsequent access of the 
record key may be made based upon any of those specified record keys. 


25. The value of the prime record key must be unique within the records in the Indexed File. 


26. In an Indexed File, the data item specified as the prime record key must be set by the program 
to the desired value before the execution of the WRITE statement. 


27. If the sequential access mode is specified for an Indexed File, records must be released in as- 
cending order of prime record key values. 


28. If random or dynamic access mode is specified for an Indexed File, records may be released 
in any program-specified order. 


29. When the ALTERNATE RECORD KEY clause is specified in the file control entry for an In- 
dexed File, the value of the alternate record key may be nonunique only if the DUPLICATES 
phrase is specified for that data item. In this case, the storage of records is such that when © 
records are accessed sequentially, the order of retrieval of those records is the order in which 
they are released. . 
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30. The INVALID KEY condition exists under any of the following circumstances: 


a. When sequential access mode is specified for a file opened in the output mode, and the 


value of the prime record key is not greater than the value of the prime record key of 
the previous record. 


b. When the file is opened in the output or I-O mode, and the value of the prime record 


key is equal to the value of a prime record key of a record already existing in the file. 


c. When the file is opened in the output or I-O mode, and the value of an alternate record 


key for which duplicates are not allowed equals the corresponding data item of a record 
already existing in the. file. . 


d. When an attempt is made to write beyond the externally defined boundaries of the file. 


Relative Files: 


31. When a Relative File is opened in the output mode, records may be placed into the file in one 
of the following ways: 


a. If the access mode is sequential, the WRITE statement causes a record to be released. The 


first record has a relative record number of 1 and subsequent records released have relative 
record numbers of 2, 3, 4, and so on. If the RELATIVE KEY data item has been specified 
in the file control entry for the associated file, the relative record number of the record 
just released is placed into the RELATIVE KEY data item during execution of the WRITE 
statement. 


b. If the access mode is random or dynamic before the execution of the WRITE statement, 


the value of the RELATIVE KEY data item must be initialized in the program with the 
relative record number to be associated with the record in the record area. That record 
is then released by execution of the WRITE statement. 


32. When a Relative File is opened in the I-O mode and the access mode is random or dynamic, 
records are to be inserted in the associated file. The value of the RELATIVE KEY data item 
must be initialized by the program with the relative record number to be associated with the | 
record in the record area. Execution of a WRITE statement then causes the contents of the 
record area to be released. 


33. The INVALID KEY condition exists under any of the following circumstances: 


a. : When the access mode is random or dynamic, and the RELATIVE KEY data item specifies 
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a record which already exists in the file. 


b. When an attempt is made to write beyond the externally defined boundaries of the file. 
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VALUE OF 
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ATTRIBUTE NAME DESCRIPTIONS 
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KEY CONDITION 
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EXCEPTION TYPE 
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EXCEPTION TYPE 
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END-TRANSACTION 
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FREE 
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STORE 
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DEBUG 


GENERAL 


The Debug section provides a means by which the user can describe a debugging algorithm, including 
the conditions under which data items or procedures are to be monitored during the execution of the 
object program. 


The decisions of what to monitor and what information to display on the output device are explicitly 
in the domain of the user. The COBOL74 debug facility simply provides a convenient access to per- 
tinent information. 


LANGUAGE CONCEPTS 


The features of the COBOL74 language that support the Debug section are: 


. A compile-time switch called WITH DEBUGGING MODE. 
. An object-time switch. 

. A USE FOR DEBUGGING statement. 

. A special register called DEBUG-ITEM. 

. Debugging lines. 


DEBUG-ITEM 


The reserved word DEBUG-ITEM is the name for a special register generated automatically. Only one 
DEBUG-ITEM is allocated per program. The names of the subordinate data items in DEBUG-ITEM 
are also reserved words. 


On & WN 


A Compile-Time Switch 


The WITH DEBUGGING MODE clause is written as part of the SOURCE-COMPUTER paragraph. 
It serves as a compile-time switch over all the debugging statements written in the program. 


An OQObject-Time Switch 


An object-time switch (SW9), dynamically activates the debugging code inserted by the compiler. This 
switch cannot be addressed in the program; it is controlled outside the COBOL74 environment. If the 
switch is ON (SW9 = 1), all the effects of the debugging language written in the source program are 
permitted. If the switch is OFF (SW9 = 0), all the effects described in the USE FOR DEBUGGING 
statement are inhibited. The value of SW9 has no effect on debugging lines in the source program. 
Recompilation of the source program is not required in order to provide or take away this facility. 


The object-time switch has no effect on the execution of the object program if the WITH DEBUG- 
GING MODE clause was not specified in the source program at compile time. 
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Debugging Lines 


A debugging line is any line with the letter D in the indicator area (column 7), of the line. Any debug- 
ging line that consists solely of spaces from columns 8 to 72 is considered the same as a blank line. 


The contents of a debugging line must be such that a syntactically correct preeiam is formed with or 
without the debugging lines being considered as comment lines. 


A debugging line is considered to have all the characteristics of a comment line, if the WITH DEBUG- 
GING MODE clause is not specified in the SOURCE-COMPUTER paragraph. 


Successive debugging lines are allowed. Continuation of debugging lines is permitted, except that each 
continuation line must contain the letter D in the indicator area, and character-strings may not be bro- 
Ken across two lines. 


The OBJECT-COMPUTER paragraph must precede any debugging line in a program. 
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ENVIRONMENT DIVISION 


To use the debugging features, you must specify the WITH DEBUGGING MODE clause in the ENVI- 
RONMENT DIVISION. 


WITH DEBUGGING MODE 


The WITH DEBUGGING MODE clause indicates that all debugging sections and all debugging lines 
are to be compiled. Refer to Debugging Lines and USE FOR DEBUGGING in this section. If this 
clause is not specified, all debugging lines and sections are compiled as comment lines. 


General Format: 


| SOURCE-COMPUTER. computer-name [ WITH DEBUGGING MODE | | 


General Rules: 


1. If the WITH DEBUGGING MODE clause is specified in the SOURCE-COMPUTER paragraph 
of the CONFIGURATION SECTION of a program, all USE FOR DEBUGGING statements 
and all debugging lines are compiled. 


2. If the WITH DEBUGGING MODE clause is not specified in the SOURCE-COMPUTER 
paragraph of the CONFIGURATION SECTION of a program, any USE FOR DEBUGGING 
statements and all associated debugging sections, and any debugging lines are compiled as com- 
ment lines. 
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PROCEDURE DIVISION 


Within the PROCEDURE DIVISION, procedures and data-names can be selectively monitored through 
the USE FOR DEBUGGING statement. 


USE FOR DEBUGGING 


The USE FOR DEBUGGING statement identifies the user items that are to be monitored by the associ- 
ated debugging section. 


General Format: 


section-name SECTION [ segment-number ] 


cd-name-] 
[ALL REFERENCES OF | identifier-1 
USE FOR DEBUGGING ON _\ file-name-1 
| procedure-name-] 
ALL PROCEDURES 


cd-name-2 

[ALL REFERENCES OF ]} _ identifier-2 
, file-name-2 
procedure-name-2 
ALL PROCEDURES 


Syntax Rules: 


1. Debugging section(s), if specified, must appear together immediately after the DECLARA- 
TIVES header. 


2. Except in the USE FOR DEBUGGING statement, there must be no reference to any nondec- 
larative procedure within the debugging section. 


3. Statements appearing outside of the set of debugging sections must not reference procedure- 
names defined within the set of debugging sections. 


4. Except for the USE FOR DEBUGGING statement, statements appearing within a given debug- 
ging section may reference procedure-names defined within a different USE procedure only with. 
a PERFORM statement. 


5. P rocedure-names defined within debugging sections must not appear within USE FOR DE- 
BUGGING statements. 


6. Any given identifier, cd-name, file-name, or procedure-name may appear in only one USE FOR 
DEBUGGING statement and may appear only once in that statement. 
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The ALL PROCEDURES phrase can appear only once in a program. 


When the ALL PROCEDURES phrase is specified, procedure-name-1, procedure-name-2, ... 
must not be specified in any USE FOR DEBUGGING statement. | 


. If the data description entry of the data item referenced by identifier-1, identifier-2, ..., contains 


an OCCURS clause or is subordinate to a data description entry that contains an OCCURS 
clause, identifier-1, identifier-2, .... must be specified without the subscripting or indexing nor- 
mally required. 


References to the special register DEBUG-ITEM are restricted to references from within a de- 
bugging section. 


General Rules: 


1. 


In the following general rules all references to cd-name-1l, identifier-1, procedure-name-1, and 


file-name-1l apply equally to cd-name-2, identifier-2, procedure-name-2, and file-name-2, respec- 


tively. 


. Automatic execution of a debugging section is not caused by a statement appearing in a debug- 


ging section. - 


. When file-name-1 is specified in a USE FOR DEBUGGING statement, that debugging section 


is executed: 
a. After the execution of any OPEN or CLOSE statement that references file-name-1, and 
b. After the execution of any READ statement (after any other specified USE procedure) not 
resulting in the execution of an associated AT END or INVALID KEY imperative state- 


ment, and 


c. After the execution of any DELETE or START statement that references file-name-1. 


. When procedure-name-1 is specified in a USE FOR DEBUGGING statement, that debugging 


section is executed: 
a. Immediately before each execution of the named procedure; 


b. Immediately after the execution of an ALTER statement which references procedure-name- 
1. 


. The ALL PROCEDURES phrase causes the effects described in General Rule 4 to occur for 


every procedure-name in the program, except those appearing within a debugging section. 


. When the ALL REFERENCES OF identifier-1 phrase is specified, that debugging section is 


executed for every statement that explicitly references identifier-1 at each of the following times: 


a. In the case of a WRITE or REWRITE statement, immediately before the execution of that 
WRITE or REWRITE statement and after the execution of any implicit move resulting 
from the presence of the FROM phrase. 
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b. In the case of a GO TO statement with a DEPENDING ON phrase, immediately before 


control is transferred and prior to the execution of any debugging section associated with 
the procedure-name to which control is to be transferred. 


c. In the case of a PERFORM statement in which a VARYING, AFTER, or UNTIL phrase 


d. 


references identifier-1, immediately after each initialization, modification, or evaluation of 
the contents of the data item referenced by identifier-1. 


In the case of any other COBOL74 statement, immediately after execution of that state- 
ment. 


If identifier-1 is specified in a phrase that is not executed or evaluated, the associated de- 
bugging section is not executed. 


7. When identifier-1 is specified without the ALL REFERENCES OF phrase, that debugging sec- 
tion is executed at each of the following times: 


a. In the case of a WRITE or REWRITE statement that explicitly references identifier-1, im- 


b. 


Cc. 


mediately before the execution of that WRITE or REWRITE statement and after the 
execution of any implicit move resulting from the presence of the FROM phrase. 


In the case of a PERFORM statement in which a VARYING, AFTER, or UNTIL phrase 
references identifier-1, immediately after each initialization, modification, or evaluation of 
the contents of the data item referenced by identifier-1. 


Immediately after the execution of any other COBOL74 statement that explicitly references 
and causes the contents of the data item referenced by identifier-1 to be changed. 


If identifier-1 is specified in a phrase that-is not executed or evaluated, the associated de-— 
bugging section is not executed. 


8. The associated debugging section is not executed for a specific operand more than once as a 
result of the execution of a single statement, regardless of the number of times that operand 
is explicitly specified. In the case of a PERFORM statement which causes iterative execution 
of a referenced procedure, the associated debugging section is executed once for each iteration. 


Within an imperative statement, each individual occurrence of an imperative verb identifies a 
separate statement for the purpose of debugging. 


When cd-name-1 is specified in a USE FOR DEBUGGING statement, that debugging section 


is executed: 


a. 


After the execution of any ENABLE, DISABLE, and SEND statement that references cd- 
name-l, 


. After the execution of a RECEIVE statement referencing cd-name-1 that does not result 


in the execution of the NO DATA imperative-statement, and 


. After the execution of an ACCEPT MESSAGE COUNT statement that references cd- 


name-1. 
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10. A reference to file-name-1, identifier-1, procedure-name-1, or cd-name-! as a qualifier does 
not constitute reference to that item for the debugging described in the previous general rules. 


11. Associated with each execution of a debugging section is the special register DEBUG-ITEM, 


which provides information about the conditions that caused the execution of a debugging sec- 
tion. DEBUG-ITEM has the following implicit description: 


Ol DEBUG-ITEM. 


02 DEBUG-LINE PICTURE 1S X(6). 

02 FILLER PICTURE IS X VALUE SPACE. 

02 DEBUG-NAME PICTURE IS X(30). 

02 FILLER PICTURE IS X VALUE SPACE. 

02 DEBUG-SUB-1 PICTURE 1S $9999 SIGN 1S LEADING SEPARATE 
CHARACTER 

02 FILLER PICTURE IS X VALUE SPACE. 

02 DEBUG-SUB-2 PICTURE 1S $9999 SIGN IS LEADING SEPARATE 
CHARACTER 

02 FILLER PICTURE 1S X VALUE SPACE. 

02 DEBUG-SUB-3 PICTURE 1S $9999 SIGN 1S LEADING SEPARATE 
CHARACTER 

02 FILLER PICTURE IS X VALUE SPACE. 


O02 DEBUG-CONTENTS PICTURE IS X(n). 


12. Prior to each execution of a debugging section, the contents of the data items referenced by 
DEBUG-ITEM are space-filled. The contents of data items subordinate to DEBUG-ITEM are 
then updated, according to the following General Rules, immediately before control is passed 
to that debugging section. The contents of any data item not specified in the following general 
rules remain spaces. 


Updating is accomplished in accordance with the rules for the MOVE statement, the sole excep- 
tion being the move to DEBUG-CONTENTS when the move is treated exactly as an alphanu- 
meric to alphanumeric elementary move with no conversion of data from one form of internal 
representation to another. 


13. DEBUG-LINE is a data item that identifies the particular source statement that caused the 
debugging section to be executed. It contains the line number of the source image, a number 
which starts from 1 and is incremented by 1 for every source image compiled. This line num- 
ber is printed on the source listing during compilation. 


14. DEBUG-NAME contains the first 30 characters of the name that caused the debugging section 
to be executed. 


All qualifiers of the name are separated in DEBUG-NAME by the word IN or OF. 
Subscripts/indices, if any, are not entered into DEBUG-NAME. 


15. If the reference to a data item that causes the debugging section to be executed is subscripted 


or indexed, the occurrence number of each level is entered in DEBUG-SUB-1, DEBUG-SUB- 
2, DEBUG-SUB-3 respectively as necessary. 
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16. 


he 


18. 


19. 


20. 


If the data item is subscripted with more than three subscripts or indices, only the occurrence 
numbers of the first three levels are entered into the DEBUG-ITEM. 


DEBUG-CONTENTS is a data item that is large enough to contain the data required by the 
following General Rules 17 through 25. 


If the first execution of the first nondeclarative procedure in the program causes the debugging 
section to be executed, the following conditions exist: 


a. DEBUG-LINE identifies the first statement of that procedure. 
b. DEBUG-NAME contains the name of that procedure. 
c. DEBUG-CONTENTS contains ‘START PROGRAM’. 


If a reference to procedure-name-! in an ALTER statement causes the debugging section to 


_ be executed, the following conditions exist: 


a. DEBUG-LINE identifies the ALTER statement that references procedure-name-1. 
b. DEBUG-NAME contains procedure-name-1. 


c. DEBUG-CONTENTS contains the applicable procedure-name associated with the TO 
phrase of the ALTER statement. 


If the transfer of control associated with the execution of a GO TO statement causes the de- 
bugging section to be executed, the following conditions exist: 


a. DEBUG-LINE identifies the GO TO statement whose execution:transfers control to-*proce- 
dure-name-|. 


b. DEBUG-NAME contains procedure-name-1!. 


If reference to procedure-name-1 in the INPUT or OUTPUT phrase of a SORT or MERGE 
statement causes the debugging section to be executed, the following conditions exist: 


a. DEBUG-LINE identifies the SORT or MERGE statement that references procedure-name- 
1. 


b. DEBUG-NAME contains procedure-name-1. 
c. DEBUG-CONTENTS contains: 


1) ‘SORT INPUT’ if the reference to procedure-name-1 is in the INPUT phrase of a 
SORT statement. 


2) 'SORT OUTPUT’ if the reference to procedure-name-1 is in the OUTPUT phrase of 
a SORT statement. 


3) 'MERGE OUTPUT’ if the reference to procedure-name-1 is in the OUTPUT phrase 
of a MERGE statement. 


21. 


22; 


23. 


24. 


2% 
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If the transfer of control from the control mechanism associated with a PERFORM statement 
caused the debugging section associated with procedure-name-1 to be executed, the following 
conditions exist: 

a. DEBUG-LINE identifies the PERFORM statement that references procedure-name-1. 

b. DEBUG-NAME contains procedure-name-1. 

c. DEBUG-CONTENTS contains ’PERFORM LOOP’. 

If procedure-name-! is a USE procedure that is to be executed, the following conditions exist: 
a. DEBUG-LINE identifies the statement that causes execution of the USE procedure. 

b. DEBUG-NAME contains procedure-name-1. | 

c. DEBUG-CONTENTS contains ‘USE PROCEDURE’. 


If an implicit transfer of control from the previous sequential paragraph to procedure-name- 
1 causes the debugging section to be executed, the following conditions exist: 


a. DEBUG-LINE identifies the previous statement. 

b. DEBUG-NAME contains procedure-name-1. 

c. DEBUG-CONTENTS contains ‘FALL THROUGH’. 

If references to file-name-1, cd-name-1 cause the debugging section to be executed, then: 
a. DEBUG-LINE identifies the source statement that references file-name-1, cd-name-1. 
b. DEBUG-NAME contains the name of file-name-1, cd-name-1. 

c. For READ, DEBUG-CONTENTS contains the entire record read. 

d. For all other references to file-name-1, DEBUG-CONTENTS contains spaces. 


e. For any reference to cd-name-1, DEBUG-CONTENTS contains the contents of the area 
associated with the cd-name. 


If a reference to identifier-1 causes the debugging section to be executed, then: 
a. DEBUG-LINE identifies the source statement that references identifier-1. 
b. DEBUG-NAME contains the name of identifier-1, and 


c. DEBUG-CONTENTS contains the contents of the data item referenced by identifier-1 at 
the time that control passes to the debugging section (refer to General Rules 6 and 7). 
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000100 
000200 
000300 
000400 
000500 
000600 
000700 
000600 


000810 : 
000900 * 


001000 
001100 
001200 
001300 
001400 
001500 
001600 
001700 
001800 
001900 
002000 
002100 
002200 
002300 
002400 
002500 
002600 
002700 
002800 
002900 
003000 
003100 
003200 
003300 
003400 
003500 
003600 


Lemp A ene we] 


003700 


0035600 
003900 
004000 
004100 
004200 
004300 
004400 
004500 
004600 
004700 
004800 
004900 


%* 


* 


aD, 
ww 


IDENTIFICATION DIVISION. 
PROGRAM-|ID. DEBUGTEST. 


THIS PROGRAM |S AN EXAMPLE OF THE COBOL74 DEBUGGING AIDS. 
NOTE THAT THE ''WITH DEBUGGING MODE' STATEMENT IN THE SOURCE 
COMPUTER PARAGRAPH INSTRUCTS THE COMPILER THAT DEBUGGING 
STATEMENTS ARE TO BE COMPILED INTO THE OBJECT CODE. SETTING 
SW9=1 AT EXECUTION TIME ENABLES THE EFFECTS DESCRIBED IN 
THE "USE FOR DEBUGGING" STATEMENT. 


ENVIRONMENT DIVISION. 

CONFIGURATION SECTION. 

SOURCE-COMPUTER. B1985 WITH DEBUGGING MODE. 

OBJECT-COMPUTER. B1985. 

INPUT-OUTPUT SECTION. 

FILE-CONTROL. 
SELECT PRINTFILE ASSIGN TO PRINTER. 
SELECT DBGFILE ASSIGN TO PRINTER. 

DATA DIVISION. 


FILE SECTION. 
FD PRINTFILE. 
O1 PRINT-REC PIC X(132). 
FD DBGFILE. 
O01 DEBUG-REC Pre. X32) 
WORKING-STORAGE SECTION. 
77. ALFA PIC 9 VALUE 4. 
77. BRAVEO PIC 99 VALUE 16. 
77. CHARLIE PIC 99. 
77 FLAG PIC 9. 
88 NEED-IT VALUE ZERO. 
88 FILE-OPEN | VALUE 1. 
O01 BARBARA. 
03 CHERYL. 
O5 DIANNE PIC 99 VALUE 16. 
77. ELVA Pic 9(18). 
77 FRAN PIC X(32) VALUE ''TEST PROGRAM FOR COBOL 74 MANUAL". 
77 GOLDIE PIC 9 VALUE 1. 
O1 HEIDI. 
03 ILENE Pic 9(8) OCCURS 5 TIMES. 
03 JANIS PIC 9. 


PROCEDURE DIVISION. 

DECLARATIVES. 

D-BUG SECTION. 

USE DEBUGGING ON 

ALL REFERENCES OF CHARLIE 
ALL REFERENCES OF BRAVEO 
ALL PROCEDURES. 

RECORD DESCRIPTION FOR DEBUG-ITEM. 


B 1000 Systems COBOL74 Language Manual . 


Debug 
005000 * O01 DEBUG-ITEM. 
005100 * O02 DEBUG-LINE Pic X(6). ; 
005200 * O2 FILLER PIC X VALUE SPACE. 
005300 * 02 DEBUG-NAME PIC X(30). 
005400 * O02 FILLER PIC X VALUE SPACE. 
005500 * 02 DEBUG-SUB-1 Pic $9(4) SIGN 1S LEADING 
005600 * : SEPARATE CHARACTER. 
005700 * O02 FILLER PIC X VALUE SPACE. 
005600 * 02 DEBUG-SUB-2 Pic S$9(4) SIGN IS LEADING 
005900 * SEPARATE CHARACTER. 
006000 * O2 FILLER PIC X VALUE SPACE. 
006100 * O02 DEBUG-SUB-3 PiC $9(4) SIGN 1S LEADING 
006200 * SEPARATE CHARACTER. 
006300 * O2 FILLER PIC X VALUE SPACE. 
006400 * O02 DEBUG-CONTENTS PIC X(n) 
006500 * 
006600 DEBUG-OUT. 
006700 1F NEED-IT 
006800 OPEN OUTPUT DBGFILE 
006900 MOVE 1 TO FLAG. 
007000 WRITE DEBUG-REC FROM DEBUG-ITEM. 
007100 END DECLARATIVES. 
007200 WORK SECTION. 
007300 START-IT. 
007400 SUBTRACT ALFA FROM BRAVEO GIVING CHARLIE. 
007500 DIVIDE BRAVEO BY CHARLIE GIVING ALFA. 
007600 SUBTRACT ALFA FROM BRAVEO GIVING CHARLIE. 
007700 FOLLOW-UP. 
007500 - SUBTRACT 4& FROM ANN. 
007900 DIVIDE ANN INTO DIANNE GIVING JANIS. 
008000 ACCEPT ILENE (GOLDIE) FROM TIME. 
008100 OPEN OUTPUT PRINTFILE. 
008200 WRITE PRINT-REC FROM FRAN. 
008 300 WRITE PRINT-REC FROM ILENE (GOLDIE). 
008400 WRITE PRINT-REC FROM JANIS. 
008500 CLOSE-SHOP. 
008600 CLOSE PRINTFILE RELEASE. 
008650 D IF FILE-OPEN 
008700 D CLOSE DBGFILE RELEASE. 
008800 STOP RUN. . 
The output from the file DBGFILE follows. 
000074 WORK START PROGRAM 
000074 START-IT . FALL THROUGH 
000074 BRAVEO 16 
000074 CHARLIE ; 12 
000075 BRAVEO 16 
000075 CHARLIE 12 
000076 BRAVEO : 16 
000076 CHARLIE 15 
000076 FOLLOW-UP FALL THROUGH 


000084 CLOSE-SHOP FALL THROUGH 
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Debugging and Diagnostic Facilities. 


The following compile-time facilities are available: 


i? 


3; 


4. 


Syntax error messages are printed before the line in error prior to the PROCEDURE DIVISION 
and after the line in error thereafter. A pointer indicates the location of the possible error. 


. Warning messages are optionally printed before the line in error prior to the PROCEDURE 


DIVISION and after the line in error thereafter. A pointer indicates the location of the possible 
error for some of these messages. . 


Various ‘informational messages are printed. 


No code is generated if syntax errors are present. 


All error messages are specific and are sufficient to determine the cause of the error. 
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APPENDIX A 
RESERVED WORDS 


All reserved words known to the B 1000 COBOL74 compiler are listed in this Appendix, which includes 
notations (X) of the DIVISION(s) wherein the words are used. Also, the notation (X) indicates that 
the word is used for DATA MANAGEMENT (DMSII). 
REASON FOR RESERVATIONS 
RESERVED 


WORDS DIVISION 


ACCEPT 
ACCESS 


ADD 
ADVANCING 
AFTER 


ALL 
ALPHABETIC 
ALSO 
ALTER 
ALTERNATE 
AND 

ARE 

AREA 
AREAS 
ASCENDING 
ASSIGN 


[KI KI 


x1 KK | 


AUTHOR 
AVAILABLE 


BEFORE 


CHARACTER | x - ~ 
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REASON FOR RESERVATIONS 
RESERVED 
WORDS DIVISION 


| IDEN | ENVI | DATA | PROC | DMSII 


CHARACTERS 
CLOCK-UNITS 
CLOSE 
COBOL 

CODE 
CODE-SET 
COLLATING 
COLUMN 
COMMA 


1 


1K KM I 


COMP 
COMPUTATIONAL 
COMPUTE 
CONFIGURATION 
CONTAINS 
CONTROL 
CONTROLS 

COPY 

CORR 
CORRESPONDING 


1 KKM MK I 


DATA-BASE - = 

DATE | = 

DATE-COMPILED xX - 
XxX 


1x1 
* | 


DATE-WRITTEN 
DAY 


DEBUG-CONTENTS 
DEBUG-ITEM = = 
DEBUG-LINE = = 
DEBUG-SUB-1 7 = 
DEBUG-SUB-2 = 2 
DEBUG-SUB-3 | ps = 
DEBUGGING = 4 x 


KKK KKK XM 
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RESERVED 


IDEN ENVI DATA | PROC 
DECIMAL-POINT = xX 


DECLARATIVES = = 
DELETE zu 
DELIMITED = 
DELIMITER = 
DEPENDING = 
DESCENDING - 
DESTINATION = 
DETAIL zs 
DISABLE. = 
DISPLAY ~ 
DIVIDE = 
DIVISION 


lL KKK KK MK | 


~All Ke 1 KKK MK |! 


AK KX | 


DUPLICATES 
DYNAMIC eed 
EGI - 
ELSE = 
EMI a 
ENABLE - 
END iv 
END-OF-PAGE 


ENVIRONMENT 
EOP 3 
" EQUAL = 
ERROR - 
ESI = 
EVERY ~ 
EXCEPTION - 
EXIT ~ 
EXTEND 


FILE-CONTROL 
FILLER = = = = 
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REASON FOR RESERVATIONS 
DIVISION 


PROC 


RESERVED 
WORDS 


DMSII 


GENERATE 
GIVING 

GO 
GREATER 
GROUP 


HEADING > 
HIGH-VALUE | x ive 32 
HIGH-VALUES X 


I-O-CONTROL 
IDENTIFICATION 
IF 
IN 

INDEX 

INDEXED 
INDICATE 
INITIAL 


INITIATE 
INPUT 
INPUT-OUTPUT 


INSPECT 
INSTALLATION 
INTO 

INVALID 


IS 

JUST 
JUSTIFIED 
KEY | 


LABEL 
LAST 
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REASON FOR RESERVATIONS 


RESERVED DIVISION 


WORDS 


LEADING 
LEFT 
LENGTH 

LESS 
LIMIT 
LIMITS 
LINAGE 
LINAGE-COUNTER 
LINE 

LINE-COUNTER 

LINES 

LINKAGE 

LOCK 

LOW-VALUE 

LOW-VALUES 


MEMORY 
MERGE = 
MESSAGE 
MODE 
MODULES 
MOVE 
MULTIPLE 
MULTIPLY 


NATIVE 
NEGATIVE 
NEXT 

NO 


LK 1 KK I 


li 


NUMBER 
NUMERIC 


OBJECT-COMPUTER 


~*~ 


OCCURS — _ 4 - = 
ODT = 4 _ _ = 
ODT-INPUT-PRESENT — - ~ 4 ss 
OF - xX xX xX - 
OFF - xX - - = 
OFFER = = = xX ce 
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REASON FOR RESERVATIONS 
DIVISION 


RESERVED 
WORDS 


OFFSET 
OMITTED 

ON 

OPEN _ 
OPTIONAL 

OR 
ORGANIZATION 
OUTPUT 
OVERFLOW 


PAGE 
PAGE-COUNTER 
PERFORM 
PF 

PH 

PIC 
PICTURE 
PLUS 
POINTER 
POSITION 
POSITIVE 
PRINTING 


1 x 


1 KKK MK MK | 


PROCEDURE 
PROCEDURES 
PROCEED 

PROGRAM 


QUEUE 
QUOTE 
QUOTES 


RANDOM 


RECORD 


REDEFINES 
REEL as 
REFERENCES = 
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| eae REASON FOR RESERVATIONS 
| One DIVISION 
Peni _. TWpEN 7 ENVI | DATA | PROC | 
RELATIVE _ 7 
RELEASE 


REMAINDER 


RENAMES 
REPLACING 
REPORT 
REPORTING 
REPORTS 
RERUN 
RESERVE 
RESET 
RETURN 
REVERSED 
REWIND 
REWRITE 


1K I KI 


x 
x 
Xx 
x 


ROUNDED 
RUN 


SEARCH 
SECTION 
SECURITY | 


SEGMENT | 
SEGMENT-LIMIT _. 
SELECT - 
SEND - 
SENTENCE ~ 
SEPARATE —_ 
SEQUENCE - 
SEQUENTIAL ~ 
SET ~ 
SIGN Joo = 
SIZE | = 
SORT | _ 
SORT-MERGE = 
SOURCE = 


11> | 
| 


| 
1 O11 KL eK 
| 


be ee 
| 


a 
| 
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REASON FOR RESERVATIONS 
DIVISION 


- x 


RESERVED 
WORDS | 
DMSII 


SOURCE-COMPUTER 
SPACE 

SPACES 
SPECIAL-NAMES 


STANDARD 
STANDARD-1 
START 
STATUS 
STOP 


STRING 
SUB-QUEUE-1 
SUB-QUEUE-2 
SUB-QUEUVE-3 
SUBTRACT 

SUM 

SUPPRESS 
SYMBOLIC 
SYNC 
SYNCHRONIZED 


mx KI KI KX I 


TABLE _ — 4 = = 


TALLYING - - - 
TAPE | = Xx - - 
TERMINAL - - - —— 
TERMINATE i - - 
TEXT - - - 
THAN - - 
THROUGH — x 

THRU _ Xx ~ 
TIME = - 


TOP = 
TRAILING = — 
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REASON FOR RESERVATIONS 


RESERVED 
WORDS DIVISION ‘aoe 


UNITS 
UNSTRING 
UNTIL 


UPON 
USAGE 
USE 


VALUE 
VALUES 


WORDS 
WORKING-STORAGE 
WRITE 

WRITE-OK 


ZERO , x 
ZEROES = X 
xX 


ZEROS ze 
ZIPSB 


ba Poh ad) Sh 
KKK K KKK KKK KKK OS 
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COBOL74 SYNTAX SUMMARY 


This appendix contains the composite language skeleton of COBOL74. Shaded items indicate extensions 
to the American National Standard, 1974 (ANSI-74). 


IDENTIFICATION DIVISION 


General Format 


IDENTIFICATION DIVISION. 
PROGRAM-ID. program-name. 

[AUTHOR. [comment-entry] ...] 
[INSTALLATION. [comment-entry ] ... ] 
[DATE-WRITTEN. [comment-entry ] ... ] 
[DATE-COMPILED. [comment-entry] ...] 
[SECURITY. [comment-entry] ... ] . 
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ENVIRONMENT DIVISION 


General Format 


ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. source-computer-entry 
OBJECT-COMPUTER.  object-computer-entry 
[SPECIAL-NAMES. special-names-entry ] 
[INPUT-OUTPUT SECTION. 

FILE-CONTROL. { file-control-entry } .. 
[IO-CONTROL. input-output-control-entry |] ] 


SOURCE-COMPUTER 


Format 1: 
Format ‘ 

SOURCE-COMPUTER. computer-name_ [WITH DEBUGGING MopE] 
OBJECT-COMPUTER 


WORDS 
OBJECT-COMPUTER. computer-name | , MEMORY SIZE integer ) CHARACTERS 
MODULES 


[, PROGRAM COLLATING SEQUENCE IS alphabet-name |] 


[ , SEGMENT-LIMIT IS segment-number ] . 


B-2 
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ENVIRONMENT DIVISION 


~ SPECIAL-NAMES 


SPECIAL-NAMES. 


IS mnemonic-name 


[ , ON STATUS IS condition-name-1 
[, OFF STATUS IS condition-name-2 ] } 


IS mnemonic-name 


{, OFF STATUS IS condition-name-2 
[,ON STATUS IS condition-name-1] ] 


ON STATUS IS condition-name-1 
[, OFF STATUS IS condition-name-2 ] 


OFF STATUS IS condition-name-2 
[, ON STATUS IS condition-name-1 ] 


, alphabet-name IS 


STANDARD-1 
NATIVE 
ASCII 
EBCDIC 

EE | literal-2 
literal-1 THRU 

ALSO literal-3 [, ALSO literal-4] ... 

| THROUGH \ 
literal-5 THRU literal-6 
Re literal-7 [, ALSO literal-8 ] a” 


[ , CURRENCY SIGN IS literal-9 | 
[ , DECIMAL-POINT IS.COMMA }. 
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ENVIRONMENT DIVISION 
INPUT-OUTPUT SECTION 


INPUT-OUTPUT SECTION. 
FILE-CONTROL. 


SELECT [OPTIONAL] _file-name 


ASSIGN TO 


AREA 
; RESERVE integer-2 
AREAS 


[ ; ORGANIZATION IS SEQUENTIAL ] 
SEQUENTIAL [ ; ACTUAL KEY IS data-name-2 Hl 


[ ACCESS MODE IS 
RANDOM; ACTUAL KEY IS data-name-2 


; ORGANIZATION IS RELATIVE 


RANDOM 
ACCESS MODE IS , RELATIVE KEY IS data-name-3 
DYNAMIC) — 


; ORGANIZATION IS INDEXED 


SEQUENTIAL [, RELATIVE KEY IS | 


SEQUENTIAL 
; ACCESS MODE IS RANDOM 
DYNAMIC 
- RECORD KEY IS data-name-4 


[; ALTERNATE RECORD KEY IS data-name-5 [WITH DUPLICATES] ] ... 


{; FILE STATUS IS data-name-1]. 
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me snore 


ENVIRONMENT DIVISION 


1-O-CONTROL 


1-O-CONTROL. 


RECORD 
* SAME SORT 


SORT AREA FOR file-name-3 {, file-name-4 } 
‘SORT-MERGE 
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DATA DIVISION 


General Format 


DATA DIVISION. 
FILE SECTION. 


‘ 


| file-description-entry [record-description-entry ] | 
sort-merge-file-description-entry (record-description-entry) ... 


WORKING-STORAGE SECTION. 


| 77-level-description-entry 
record-description-entry 


LINKAGE SECTION. 


| 77-level-description-entry 
record-description-entry 


COMMUNICATION SECTION. 


en hy ee et oe 


[ communication-description-entry [ record-description-entry ] 
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DATA DIVISION . 


FILE SECTION 


FD file-name 


[ED file-name 
[ RECORDS 
| BLOCK CONTAINS [integer-1 TO]  integer-2 


CHARACTERS 
[ ; RECORD CONTAINS [integer-3 TO] integer-4 © CHARACTERS 
[ DEPENDING ON data-name-! ] | | 

RECORD IS STANDARD) | 
pane sack ee | 


; LABEL 


data-name-2 


; VALUE OF attribute-name-1 IS 
literal-1 


data-name-3 
, attribute-name-2 IS 


literal-2 


4 


RECORD IS 


we 


DATA data-name-4 [, data-name-5] ... 


RECORDS ARE 


data-name-6 an data-name-7 } 
LINAGE IS LINES |, WITH FOOTING AT 


we 


integer-5 integer-6 
; data-name-8 data-name-9 
, LINES AT TOP | , LINES AT BOTTOM 
integer-7 integer-8 


[; CODE-SET IS alphabet-name }. 


{ record-description-entry } oie | eat 
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DATA DIVISION 


SD file-name 


SD file-name 
[; RECORD CONTAINS _ [integer-1 TO] integer-2 CHARACTERS 
[ DEPENDING ON data-name-1 ] ] 


RECORD IS 
; DATA data-name-2 [, data-name-3] ... 
RECORDS ARE 


{ record-description-entry i $38 | 
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LA A 


DATA DIVISION 


Data Description Entry 


Format 1: 


data-name-1 
level-number 


FILLER 
[; REDEFINES data-name-2 ] 
aa 
IS character-string 
i 
COMPUTATIONAL 
; [USAGE IS] ) COMP 
DISPLAY 
INDEX 
; OCCURS | integer-1 TO ] integer-2 TIMES 


~) 


[DEPENDING ON data-name-3 ] 


aan 


KEY IS data-name-4 _[, data-name-5] .. | a 
DESCENDING 


[ INDEXED BY index-name-1 [, index-name-2] ... ] 


j LEADING 
; [SIGN IS] [ SEPARATE CHARACTER ] 


TRAILING 


RIGHT | 


/ 
ee pss 7 
SYNC 


JUSTIFIED 
RIGHT 
JUST : 


- BLANK WHEN ZERO ] 
VALUE JS literal 
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DATA DIVISION 


Data Description Entry 


Format 2: 


THROUGH 
66 data-name-!; RENAMES data-name-2 THRU datu-name-3 


Format 3: 


VALUE IS oi THROUGH }. ; = 
: ition- : literal- iteral-2 
88 condition-name VALUES ARE itera THRU itera 


, literal-3 Vict 


VA 
boom 
foe 
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DATA DIVISION 


WORKING-STORAGE SECTION 


WORKING-STORAGE SECTION. 
Tt data-name-! 
88  condition-name-] 


77 daig-ieines 
01 data-name-2 
02 data-name-3 


66 data-name-m RENAMES data-name-3 
01 data-name-4 
02 data-name-5 
03 data-name-n 
88  condition-name-2 
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DATA DIVISION 


LINKAGE SECTION 


LINKAGE SECTION. 
Tt data-name-1 
88 condition-name-] 


77 davacnamen 
01 data-name-2 
02 data-name-3 


66 data-name-m RENAMES data-name-3 
01 data-name-4 
02 data-name-5 
03 data-name-n ~ 
88  condition-name-2 
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DATA DIVISION 


COMMUNICATION SECTION 


Format 1: 


CD cd-name; 


[ [ ; SYMBOLIC QUEUE IS data-name-1] 


[ ; SYMBOLIC SUB-QUEUE-1 IS data-name-2 ] 

[ ; SYMBOLIC SUB-QUEUE-2 IS data-name-3 ] 

[ ; SYMBOLIC SUB-QUEYE-3 IS data-name-4 ] 
FOR [ INITIAL J INPUT [ ; MESSAGE DATE IS data-name-5 ] 
(|; MESSAGE TIME IS data-name-6 ] 
[ ; SYMBOLIC SOURCE IS data-name-7 ] 
[ ; TEXT LENGTH IS data-name-8 | 
[ ; END KEY IS data-name-9 ] 
[ ; STATUS KEY IS data-name-10] 


[ ; MESSAGE COUNT IS data-name-11] | 


[ data-name-1, data-name-2, ... , data-name-1] ] 


Format 2: 


CD cd-name; FOR OUTPUT 
[ ; DESTINATION COUNT IS data-name-! ] 
[ ; TEXT LENGTH IS data-name-2 ] 
[ ; STATUS KEY IS data-name-3 | 
E DESTINATION TABLE OCCURS integer-2 TIMES 


[ ; INDEXED BY index-name-l [, index-name-2] ... ] | 


{ ; ERROR KEY IS data-name-4 ] 


[ ; SYMBOLIC DESTINATION IS data-name-5 ] . 
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PROCEDURE DIVISION 


General Format 


| PROCEDURE DIVISION [USING data-name-! [, data-name-2] ... ] : 


Format 1: 


[ DECLARATIVES. 
{ section-name SECTION [segment-number]. declarative-sentence 
[ paragraph-name. [sentence] ... ] ae I 

END DECLARATIVES. ] 
{ section-name SECTION [segment-number]. 


eee 


[ paragraph-name. [sentence] ... ] ; 


Format 2: 


{ paragraph-name. [sentence] ... ; 


DECLARATIVES 


— 
section-name SECTION [ segment-number ] | 
cd-name-| 
| ( [ALL REFERENCES OF] _ identifier-1 
USE FOR DEBUGGING ON _\ file-name-1! | 
procedure-name-1 | 
ALL PROCEDURES 
cd-name-2 
[ALL REFERENCES OF ] _ identifier-2 
, file-name-2 cae. od 
procedure-name-2 
ALL PROCEDURES 


VERBS 
ACCEPT 


Format 1: 


- 


Format 2: 


7 


Format 3: 


i 
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ACCEPT 


ACCEPT identifier [ FROM { mnemonic-name } ] | 


ACCEPT identifier FROM 


ACCEPT — cd-name MESSAGE COUNT 
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ADD 


ADD 


Format 1: 


identifier-] , identifier-2 
ADD ... TO — identifier-m [ROUNDED 
literal-1 , literal-2 


[ , identifier-n [ROUNDED ] ] 


[; ON SIZE ERROR imperative-statement } 


Format 2: 


( identifier-1 ( identifier-2 ( , identifier-3 — 
ADD ) : eances 
( literal-1 literal-2 \ , literal-3 
GIVING identifier-m [ROUNDED] [ , identifier-n [ ROUNDED] ].. 
[:; ON SIZE ERROR imperative-statement ] 


Format 3: 


| CORRESPONDING 
ADD identifier-1 1O identifier-2 [ROUNDED | 


| CORR | 


[ -ON SIZE ERROR Imperative-statement ] 
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ALTER, CALL 


ALTER 

ALTER procedure-name-! TO [PROCEED TO] procedure-name-2 

[ , procedure-name-3 TO [PROCEED TQ] procedure-name-4] ... 
CALL 
Format 1: 

identifier-1] 
CALL [ USING data-name-1 [, data-name-2 ] 
literal-1- 
{; ON OVERFLOW imperative-statement ] 

Format 2: 
Format 3: 
Format 4: 


identifier-3 
CALL SYSTEM WFL USING nee | } 
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CANCEL, CLOSE, COMPUTE 


CANCEL 


literal-1 


identifier-1 , identifier-2 
CANCEL 


, literal-2 


CLOSE 


REEL| BS _ NO REE ND) 
UNIT / LFOR REMOVAL 

NO REWIND 
CLOSE _ file-name-! WITH LOCK 


NC 


REEL [WITH No REWIND ] | 


UNIT § [FOR REMOVAL 
NO REWIND 


, file-name-2 WITH LOCK 


COMPUTE 


COMPUTE identifier-] [ROUNDED] [. identifier-2 [ROUNDED|] ... 


= arithmetic-expression [:ON SIZE LRROR imperative-statement ] 
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COPY 
1 fiteia OF eae | 
COPY | literal-3 IN \ multifiled | ( 
( ==pseudo-text-1== ==pseudo-text-2== 
identifier-1 identifier-2 
REPLACING ) ° ) jiteral-1 BY ) literal-2 ae 
word-] word-2 | 
DELETE 


DELETE filename RECORD [; INVALID KEY imperative-statement ] 


DISABLE 
INPUT [TERMINAL ] identifier-1 ( 
DISABLE. cd-name WITH KEY 
OUTPUT literal-1 | 
DISPLAY 


| identifier-1 _identifier-2 
DISPLAY 


| literal-1 | . literal-2 


[ UPON mnemonic-name ] 
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DIVIDE, ENABLE 


DIVIDE 


Format 1: 


f identifier-1 


DIVIDE INTO identifier-2 [ROUNDED] 


( literal-] 
( ; identifier-3 [ROUNDED] ]. 


[; ON SIZE ERROR _ imperative-statement ] 


Format 2: 


| identifier-1 


j BY oa . 
DIVIDE 
INTO Uiteral-2 


GIVING identifier-3 [ROUNDED ] 


( literal-1 


[ , identifier-4 [ROUNDED] ]... 


[ : ON SIZE ERROR imperative-statement | 


Format 3: 


identifier-] gia ( identifier-2 ) 
DIVIDE 


literal-| l INTO | literal-2 j 
- GIVING identifier-3 [ROUNDED ] 
REMAINDER identifier-4 


[ ; ON SIZE ERROR imperative-statement ] 


ENABLE 


INPUT [TERMINAL ] 


ENABLE 


identifier-1 
cd-name WITH KEY 


OUTPUT literal-] 
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EXIT, GO TO 
EXIT 
ee 
EXIT sROGRAM 


| EXIT PROGRAM. | | 


GO TO 


Format 1: 


| . GO TO [ procedure-name-| ] 


Format 2: 
GO TO procedure-name-! ls procedure-name-2 | .., Procedure-name-n 
DEPENDING ON identifier 
IF 


| NEXT SENTENCE | 5 ELSE NEXT SENTENCE 


( > ELSE statement-2 


| statement-| 
I’ condition; 
= t 
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INSPECT 


Format 1: 


INSPECT identifier-] TALLYING 


ALL \ fidentifier-3 | Ne isin 
 identifier-? FOR \ | TE biNe| tian f | rere INITIAL oe | 
CHARACTERS | aes eral-2 


Format 2: 
INSPECT identifier-! REPLACING 


: ere j identifier- BEFORE om j identifer-7 | 
CHARACTERS BY \ literal-4 AFTER Uy V literal-s 


eae aaa \ ae INITIAL § Weftitien 74 
literal-3 — Viiterald f{ |QAPTER ~Y literal-§ 


ul |. 


Format 3: 


INSPECT identifier-1 TALLYING 


ALL identitier-3 oo oe 
cali } aren initia. { Mentor | 


| identifier-2 FOR | j LEADING en 
] 1" CHARACTERS AVTER iteral-2 


REPLACING 


literal-4 literal-5 


CHARACTERS BY oe a ac INITIAL | 


VAFTER 


identifier-5 identifier-6 BLFORE f identifier-7 | 
ieee \ By ee k FITER el V literal-s 


AY, 
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nm a i i 


MERGE, MOVE 


MERGE 


MERGE 
file-name-1 


f ASCENDING 
ON KEY data-name-l  [, data-name-2] ... 
| DESCENDING 
ASCENDING 
ON KEY data-name-3 Ps, data-name-4 | ee 
DESCENDING 


[ COLLATING SEQUENCE IS alphabet-name ] 


USING | Soe 
sename| PURCH 4 filename-3 | PURGE \ jaieae fen \ 


RELEASE RELEASE RELEASE 


| | { THROUGH | 
OUTPUT PROCEDURE IS procedure-name-1 procedure-name-2 


THRU 


GIVING _file-name-5 


Format 1: 
MOVE a TO identifier-2 _ [. identifier-3 ] se 
Format 2: 


TA SL 


CORRESPONDING | 
CORR 


RR A A ET EE 


identifier-1 LO identifier-2 


MOVE 
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MULTIPLY, OPEN 


MULTIPLY 


Format 1: 


MULTIPLY Moral > BY identitier-2 [ROUNDED | 


[. identifier-3 [ROUNDED] ] ae [ON SIZE ERROR imperative-statement ] 


Format 2: 


MULTIPLY 4} ficracy  ¢ BY {itera | GIVING identifier-3 {ROUNDED | 
Oo literal-1 = literal-2 f 
[. identifier-4 [ROUNDED]] ... [ON SIZE ERROR imperative-statement] 
OPEN | 
INPUT file-name-l | never 
WITH NO REWIND 


. file-name-2 R RSED ven 
WITH NO REWIND 


OUTPUT file-name-3 [WITH NO REWIND] 
OPEN [ , filename-4 [WITH NO REWIND] 


] 


I-O file-name-5 ] 
[, file-name-6 ] 

EXTEND file-name-7 ] 
file-name-8 ] 
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PERFORM 
PERFORM 
Format 1: 
j THROUGH 
PERFORM procedure-name-| procedure-name-2 
lruru | 
Format 2: 


( THROUGH ) { idlentifier-1 ) 


PLE:RFORM procedure-name- | procedure-name-2 


[THRU ( integer-1 


Format 3: 


( THROUGH 


PERFORM procedure-name-| procedure-name-2 UNTIL condition-1 


| THRU 


Format 4: 


( THROUGH 
PERFORM procedure-name-1 ) procedure-name-2 
7 THRU 


( identifier-2 ‘ identifier-3 
VARYING FROM index-name-2 
\ index-name-] literal-1 


{ identifier-4 
BY UNTIL condition-] 


( literal-2 


| identifier-5 identifier-6 
AFTER FROM_ 4 index-name-4 


] index-name-3 literal-3 


identifier-7 
BY UNTIL condition-2 
literal-4 
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READ 


Format 1: 


READ file-name [NEXT] RECORD  [ INTO identifier ] 


E 


AT END imperative-statement ] 


Format 2: 


READ filename RECORD  [ INTO identifier ] 


[ ; KEY IS data-name | 


[ ; INVALID KEY imperative-statement ] 
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RECEIVE, RELEASE, RETURN, ‘REWRITE 


RECEIVE 


: MESSAGE 
RECEIVE cd-name \ SEGMENT 


[ ; NO DATA imperative-statement ] 


INTO identifier! 


RELEASE 


RELEASE record-name [FROM identifier | | 


RETURN 


RETURN file-name RECORD [INTO identifier ] >; AT END imperativestatement 


ra i 


SS 


REWRITE record-name [FROM identifier ] 


[; INVALID KEY  imperative-statement ] 
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SEARCH, SEEK 


SEARCH 


Format 1: 


SEARCH identifier-1_ | VARYING ee | 
index-name-| 


[: AT END imperative-statement-l | 


: Moe ctad rupee artnet 
| WHEN condition-l | Nix SENTENCE 


See ree Nie ee 
: WHEN condition? {iNT SENTENCE 


Format 2: 


SEARCH ALL identifier-1 [. AT END imperative-statement-1 ] 


: identifier-3 
- EQUAL TO} ae 


data-name-1 
bia hineceexpreenel 


> WHEN | 


condition-name-1 


IS EQUAL TO 


f identifier-4 
IS = 


literal-2 


{ satename- 
arithmetic-expression-2 


AND 


condition-name-2 


_—- 


| imperative-statement-2 
NEXT SENTENCE 


SEEK 
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SEND, SET 


SEND 
Format 1: 
SEND _ cd-name { FROM identifier-1 |] 
Format 2: 
. WITH identifier-2 
bas WITH ESI 
SEND cd-name [FROM identifier-1 ] wie EMI 
WITH EGI 


a LINE | 
integer LINES 


| BEFORE \ ADVANCING 


AFTER 


' mnemonic-name 
| PAGE 


SET 
Format 1: 
identifier-1 , identifier-2 identifier-3 
SET san TO index-name-3 
index-name-1 , index-name-2 integer-|! 
Format 2: 
UP BY \ identifier4 
SET index-name4 [. index-name-5 | wean 
DOWN BY integer-2 
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SORT 


file-name-] 


ASCENDING } 
ON KEY data-name-l [ ; data-name-2 | 


DESCENDING | 
ASCENDING 
ON KEY data-name-3  [ , data-name-4] ... 
DESCENDING 
[COLLATING SEQUENCE IS alphabet-name] 


THROUGH 


mocturename? 


INPUT PROCEDURE IS procedure-name-1 E 
THRU 


USING | file-name-2 , file-name-3 


THROUGH 
OUTPUT PROCEDURE IS procedure-name-3 procedure-name-4 


THRU 


GIVING file-name-4 
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START, STOP, STRING 


START 


IS EQUAL TO 
IS = 
START file-name KEY = GREATIR Pane data-name 


IS NOT LESS THAN 
IS NOT < 


[ ; INVALID KEY imperative-statement ] 


STOP 


RR 


RUN 
literal 


STOP { 


STRING 


identifier-1 ~ jdentifier-2 
STRING . 


literal-1 ” literal-2 


identifier-3 
DELIMITED BY « literal-3 
SIZE 


identifier-4 a 
literal-4 literal-5  identifier-6 
DELIMITED BY literal-6 
SIZE 


INTO identifier-7 [WITH POINTER _ identifier-8 ] 


[; ON OVERFLOW imperative-statement ] 
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SUBTRACT 


Format 1: 


identifier-1 , identifier-2 | 
SUBTRACT ... FROM identifier-m [ROUNDED | 
literal-| , literal-2 


[. identifier-n [ROUNDED] ] mh [;ON SIZE. ERROR imperative-statement ] 


Format 2: 


identifier-1 , identifier-2 identifier-m 
SUBTRACT ree FROM 
literal-1 , literal-2 literal-m 
GIVING identifier-n [ROUNDED | e identifier-o [ROUNDED] ] es 


[:ON SIZE ERROR imperative-statement ] 
Format 3: 
CORRESPONDING 


CORR 
[; ON SIZE ERROR imperative-statement |] 


SUBTRACT identifier-1 FROM identifier-2. [ROUNDED] 
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UNSTRING 


UNSTRING 


Format 1: 


UNSTRING identifier-1 


identifier-2 identifier-3 
DELIMITED BY [ALL] ,OR [ALL] 


literal-1] literal-2 


INTO identificr-4 [, DELIMITER IN identifier-5] _ [., COUNT IN identifier- ] | 


| , identificr-7 [. DELIMITER IN identifier-8 | [, COUNT IN identifier-9 J | 
[WITH POINTER identifier-10} [ TALLYING IN identifier-11] 


[ >ON OVERFLOW imperative-statement ] 


Format 2: 


UNSTRING _ identifier-| 


identifier-1 2 
INTO identifier-4 FOR 


. identifier-1 3 
, identifier-7 FOR as 


integer-2 


integer-| 


\ 


[WITH POINTER identifier-10] [TALLYING IN identifier-11 ] 


E ON OVERFLOW imperative-statement | 
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USE AFTER, WAIT UNTIL 


USE AFTER 


( EXCEPTION 


USE AFTER STANDARD PROCEDURE ON 


LeRROR 


(input [, file-name-2 ] ited 


INPUT 


EXTEND 


WAIT UNTIL 
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WRITE 
-WRITE 
Format 1: 
WRITE record-name [ FROM identifier-1 | 
| aed ane | 
BEFORE | integer-| LINES 
ADVANCING 
AFTER mnemonic-name 
PAGE \ 
END-OF-PAGE 
; AT imperative-statement 
EOP | 
Format 2: 
WRITE - record-name [ FROM identifier-! ] 
[; INVALID KEY imperative-statement ] 
Format 3: : 
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DATA BASE MANAGEMENT 
DATA DIVISION | 


General Format 


_~PROCEDURE DIVISION 


Format for Selection Expression 


Format for Set Selection Expression 
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a DATA BASE MANAGEMENT 


DATA BASE MANAGEMENT VERBS 
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DATA BASE MANAGEMENT 


FREE 
INSERT 


INSERT data-set-name INTO subset-name [ON EXCEPTION statement ] 


LOCK 


| LOCK { selection-expression } { ON EXCEPTION statement | ; | 
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COBOL74 GRAPHICS 


Table C-1 lists the 8-bit EBCDIC internal code together with the USASCII-7, 80-column card codes 
and the associated control or special codes or graphics. Table C-2 presents similar information, but 
restricted to and in sequence of the USASCII-7 code. Table C-3 explains all the control or special 
codes. 


Column headings have the following meanings in tables C-1 and C-2: 


Column 

Heading Meaning 
A EBCDIC sequence number and decimal value 
B EBCDIC hexadecimal representation 
C ASCII-7 sequence number and decimal value 
D ASCII-7 hexadecimal representation 
E 80-column card code 
F Graphic or code 


Hexadecimal representation means that standard convention is followed for the 8-bit internal codes. 
These codes are shown translated as pairs of hexadecimal numbers in the following examples. 


| Examples: 

Hex 
Number 8-Bit 

Pair Internal Code 

8421 8421 

@39@ = 0011 1001 
@BE@ = 1011 1110 
@O0F@ = 0000 1111 


Table C-1. B 1000 Codes in EBCDIC Sequence 


NUL (Null) 

SOH (Start of Heading) 
STX (Start of Text) 
ETX (End of Text) 


HT (Horizontal Tab) 


DEL (Delete) 


VT (Vertical Tab) . 
FF (Form Feed) ° 
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Table C-1. B 1000 Codes in EBCDIC Sequence (Cont) 


12-11-1-8-9 
11-1-9 
11-2-9 
11-3-9 
11-4-9 
[1-5-9 
11-6-9 
11-7-9 
1 1-8-9 
I 1-1-8-9 
11-2-8-9 
11-3-8-9 
11-4-8-9 
11-5-8-9 
1 1-6-8-9 
11-7-8-9 


11-0-1-8-9 
0-1-9 
0-2-9 
0-3-9 
0-4-9 
0-5-9 
0-6-9 
0-7-9 
0-8-9 
0- 1-8-9 
0-2-8-9 
0-3-8-9 
0-4-8-9 
0-5-8-9 
0-6-8-9 
0-7-8-9 
12-1 1-0-1-8-9 
1-9 
2-9 
3-9 
4-9 
5-9 
6-9 
7-9 


CR (Carriage Return) 
SO (Shift Out) 
SI (Shift In) 


DLE (Data Link Escape) 
DCI (Device Control 1!) 
DC2 (Device Control 2) 
DC3 (Device Control 3) 


NL (New Line) 
BS (Backspace) 


CAN (Cancel) 
EM (End of Medium) 


FS (File Separator) 
GS (Group Separator) 
RS (Record Separator) 
US (Unit Separator) 


LF (Line Feed) 


ETB (End of Transmission Block) 


ESC (Escape) 


ENQ (Enquiry) 
ACK (Acknowledge) 
BEL (Bell) 


SYN (Synchronous Idle) 


EOT (End of Transmission)0 
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a a 


Table C-1. B 1000 Codes in EBCDIC Sequence (Cont) 
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E 
8-9 
1-8-9 
2-8-9 
3-8-9 
4-8-9 DC4 (Device Control 4) 
5-8-9 NAK (Negative Acknowledge) 
6-8-9 
7-8-9 
(No Punches)| (SPACE) 
12 = 0-1-8-9 
12 0-2-9 
12 0-3-9 
12 0-4-9 
12 0-5-9 
12 0-6-9 
12 0-7-9 
12 0-8-9 
12 1-8 
12 2-8 [ (LEFT BRACKET) 
12 3-8. . (PERIOD, DECIMAL POINT) 
12 4-8 < (LESS-THAN SIGN) 
12 5-8 ( (LEFT PARENTHESIS) 
12 6-8 + (PLUS SIGN) 
12 7-8 | (VERTICAL BAR) 
12 & (AMPERSAND) 
12-11-1-9 
12-11-2-9 
12-11-3-9 
12-11-4-9 
12-11-5-9 
12-11-6-9 
12-11-7-9 
12-11-8-9 
11-1-8 
11-2-8 ] (RIGHT BRACKET) 
11-3-8 $ (DOLLAR SIGN) 
11-4-8 * (ASTERISK) 
11-5-8 ) (RIGHT PARENTHESIS) 
11-6-8 ; (SEMICOLON) 
11-7-8 | — (LOGICAL NOT) 
11 — (MINUS, HYPHEN) 
0-1 / (SLASH) 
11-0-2-9 
11-0-3-9 
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C-4 


128 
129 
130 
154 
132 
133 
134 
135 
136 
137 
138 
139 
140 
14] 
142 
143 


Table C-1. B 1000 Codes in EBCDIC Sequence (Cont) 


12-11-0 

12-1 1-0-1-9 
12-11-0-2-9 
12-1 1-0-3-9 
12-11-0-4-9 
12-11-0-5-9 


12-11-0-6-9 
12-11-0-7-9 
12-11-0-8-9 

1-8 

2-8 

3-8 

4-8 

5-8 

6-8 


, (COMMA) 

% (PERCENT SIGN) 

_. (UNDERSCORE) 

> (GREATER-THAN SIGN) 
2? (QUESTION MARK) 


! (EXCLAMATION POINT) 


: (COLON) 
# (NUMBER OR POUND SIGN) 
@ (AT SIGN) 

> (APOSTROPHE) 

= (EQUAL SIGN) 

‘* (QUOTATION MARK) 


== Mmoaaon aw 


I 
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Table C-1. B 1000 Codes in EBCDIC Sequence (Cont) 


126 
115 
116 
117 
118 
119 
120 
121 
122 


E . -F 


12-11-1-8 
12-1 1-1 
12-11-2 
12-11-3 
12-11-4 
12-11-5 
12-11-6 
[2-1-7 
12-11-8 
12-11-9 
[2-1 1-2-8 
12-11-3-8 
12-11-4-8 
12-11-5-8 
12-11-6-8 
12-11-7-8 


*ODVOS BTA 


11-0-1-8 
11-0-1 ¢ (CENTS SIGN) 
11-0-2 S 
11-0-3 t 
11-0-4 u 
11-0-5 Vv 
11-0-6 Ww 
11-0-7 x 
11-0-8 y 
1-0-9 Zz 
11-0-2-8 
11-0-3-8 
11-0-4-8 
11-0-5-8 
11-0-6-8 
11-0-7-8 


12-1 1-0-1-8 
12-11-0-1 
12-11-0-2 
12-11-0-3 - 
12-11-0-4 
12-11-0-5 
12-11-0-6 
12-11-0-7 
12-11-0-8 
12-1 1-0-9 
12-11-0-2-8 
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Table C-1. B 1000 Codes in EBCDIC Sequence (Cont) 


12-11-0-3-8 


12-11-0-4-8 
12-1 1-0-5-8 
12-1 1-0-6-8 


12-11-0-7-8 
(LEFT BRACE) 


{ 

A 
B 
C 
D 
E 
F 
G 
H 
I 


} (RIGHT BRACE) 
J 


POVOZZECA 


\ (REVERSE SLASH) 


<cHn 
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Table C-1. B 1000 Codes in EBCDIC Sequence (Cont) 


OMAYADUARWN OC 
OWANAUNAWN— OO 


Table C-2 lists the 8-bit EBCDIC internal code together with the USASCII-7, and 80-column card 
codes in sequence of the USASCII-7 code. 
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‘Table C-2. B 1000 Codes in ASCII-7 Sequence 


?) 


NUL (Null) 
SOH (Start of Heading) 
STX (Start of Text) 
ETX (End of Text) 
EOT (End of Transmission) 
ENQ (Enquiry) 

ACK (Acknowledge) 

BEL (Bell) 

BS (Backspace) 

HT (Horizontal Tab) 

LF (Line Feed) 


SDOMIUDNAWN—O 
—) 
nN 


C-8 
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Table C-2. B 1000 Codes in ASCII-7 Sequence (Cont) 


12 3-8-9 
12 4-8-9 
12 5-8-9 
12 6-8-9 
12 7-8-9 
12-11-1-8-9 

11-1-9 
11-2-9 
11-3-9 
4-8-9 
5-8-9 
2-9 
0-6-9 
11-8-9 
11-1-8-9 
7-8-9 
0-7-9 
11-4-8-9 
11-5-8-9 
11-6-8-9 
11-7-8-9 

| [NO PUNCHES] 

(2. “78 
7-8 
3-8 
1-3-8 
0-4-8 


rie 
— 0 


CO ITIA a BR WNY = © 


VT (Vertical Tab) 

FF (Form Feed) 

CR (Carriage Return) 

SO (Shift Out) 

SI (Shift In) 

DLE (Data Link Escape) 
DC1 (Device Control 1!) 

DC2 (Device Control 2) 

DC3 (Device Control 3) 

DC4 (Device Control 4) 
NAK (Negative Acknowledge) 
SYN (Synchronous Idle) 
ETB (End of Transm. Block) 
CAN (Cancel) 

EM (End of Medium) 

SUB (Substitute) 

ESC (Escape) 

FS (File Separator) 

GS (Group Separator) 

RS (Record Separator) 

US (Unit Separator) 
(SPACE) 

| (VERTICAL BAR) 

** (QUOTATION MARK) 

# (NUMBER OR POUND SIGN) 
$ (DOLLAR SIGN) 

J (PERCENT SIGN) 

& (AMPERSAND) 

* (APOSTROPHE) 

( (LEFT PARENTHESIS) 

) (RIGHT PARENTHESIS) 

* (ASTERISK) 

+ (PLUS SIGN) 

. (COMMA) 

— (MINUS SIGN, HYPHEN) 
. (PERIOD) 

/ (SLASH) 


CYA mW RWN — CO 
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Table C-2. B 1000 Codes in ASCII-7 Sequence (Cont) 


57 3 9 9 

58 3A 2-8 : (COLON) 

39 3B 11-6-8 ; (SEMICOLON) 

60 3C 12 4-8 < (LESS-THAN SIGN) 
61 | 3D 6-8 = (EQUAL SIGN) 

62 3E 0-6-8 > (GREATER-THAN SIGN) 
63 3F 0-7-8 ? (QUESTION MARK) 
64 40 4-8 @ (AT SIGN) 

65 4] 12, | A 

66 42 2 2 B 

67 43 12, 3 C 

68 44 12. 4 D 

69 45 12 5 E 

70 46 12 6 F 

71 47 IZ 6 G 

12 48 12 8 H 

73 49 12. 9 | 

74 4A 11-1 J 

7S 4B 11-2 K 

76 4C 11-3 L 

77 4D 11-4 M 

78 4E 11-5 N 

ve 4F 11-6 oO 

80 50 11-7 P 

81 ae 11-8 Q 

82 52 11-9 R 

83 53 0-2 S 

84 54 0-3 T 

85 53 0-4 U 

86 56 0-5 Vv 

87 ay 0-6 W 

88 58 0-7 xX 

8&9 59 0-8 Y 

90 5A 0-9 Z 

91 5B 12 2-8 [ (LEFT BRACKET) 
92 i) Oe \ (REVERSE SLASH) 
93 5D 11-2-8 ] (RIGHT BRACKET) 
94 SE 1 1-7-8 1 (LOGICAL NOT) 

95 5F 0-5-8 — (UNDERSCORE) 
96 60 1-8 

97 61 12, 0-1 a 

98 62 12 0-2 b 

99 63 12 0-3 c 

100 64 12 0-4 d 

101 65 12 0-5 e 
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Table C-2. B 1000 Codes in ASCII-7 Sequence (Cont) 


ee Sem — => W9Q hy 


m 
n 
ce) 
p 
q 
r 
S 
t 
u 
Vv 
Ww 
X 
y 
Zz 
( 


(LEFT BRACE) 


} (RIGHT BRACE) 
¢ (CENTS SIGN) 
DEL (Delete) 
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Table C-3 explains all of the control and special codes. The symbols are presented in the order of ap- 
pearance in table C-1 and C-2. 


Symbol 
NUL 


SOH 


STX 


ETX 


EOT 


ENQ 


ACK 


BEL 


BS 


HT 
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Table C-3. Description of Control and Special Characters 


Name/Function 


Null: The all zeros character which may serve to 
accomplish time fill and media fill. 

Start of Heading: A communication control character 
used at the beginning of a sequence of characters 
which constitutes a machine-sensible address or 
routing information. Such a sequence is referred 

to as the “heading.” An STX character has the 
effect of terminating a heading. 


Start of Text: A communication control character 

which precedes a sequence of characters which are to be 
treated as an entity and which are entirely transmitted 
to the ultimate destination. Such a sequence is 

referred to as “text.” STX may be used to terminate 

a sequence of characters started by SOH. 


End of Text: A communication control character used 
to terminate a sequence of characters started with 
STX and transmitted as an entity. 


End of Transmission: A communication control character 
used to indicate the conclusion of a transmission which 
may have contained one or more texts and any 
associated headings. 


Enquiry: A communication control character used in 
data communication systems as a request for a 

response from a remote station. It may be used as a 
"Who Are You” (WRU) to obtain identification, or may 
be used to obtain station status, or both. 


Acknowledge: A communication control character 
transmitted by a receiver as an affirmative response 


to a sender. 
Bell: A character for use when-there is a need to call 


for human attention. It may control alarm or attention 
devices. 


Backspace: A format effector that controls the 
movement of the printing mechanism one print 
position backward on the same print line. 


Horizontal Tabulation: A format effector that controls 

the movement of the printing mechanism to the next position 
in a series of predetermined positions along the print 

line. 


Symbol 


LF 


VT 


FF 


CR 


SO 


SI 


DLE 


DC1 
DC2 
DC3 
DC4 


NAK 


SYN 


ETB 
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Tavle C-3. Description of Control and Special Cnaracters (Cont) 
Name/Function 


Line Feed: A format effector that controls movement 
one line at a time. 


Vertical Tabulation: A format effector that controls 
movement to the next in a series of predetermined 
lines. 


Form Feed: A format effector that controls the 
movement of the printing position to the first 
predetermined printing line on the next form 
or page. 


Carriage Return: A format effector that controls 
the movement of the print mechanism to the first 
print position on the same print line. 


Shift Out: A control character indicating that the 
code combinations that follow shall be interpreted 
as outside of the character set of the standard 
code table until a Shift In character is detected. 


Shift In: A control character indicating that the 
code combinations that follow shall be interpreted 
according to the standard code table. 


Date Link Escape: A communication control character 
that will change the meaning of a limited number 

of contiguously following characters. It is used 
exclusively to provide supplementary controls in 

data communication networks. 


Device Controls: Characters for the control of 
ancillary devices associated with data processing or 
telecommunication systems, more especially switching 
devices ON or OFF. If a single “stop” control is 
required to interrupt or turn off ancillary devices, 
DC4 is the preferred assignment. 


Negative Acknowledge: A communication control 
character transmitted by a receiver as a negative 
response to the sender. 


Synchronous Idle: A communication control character 
used by a synchronous transmission system in the 
absence of any other character to provide a signal 
from which synchronism may be achieved or retained. 


End of Transmission Block: A communication control 
character used to indicate the end of a block of 

data for communication purposes. ETB is used for 
blocking data where the block structure is not 
necessarily related to the processing format. 


Symbol 
CAN 


EM 


SUB 


ESC 


SP 


DEL 
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Table C-3. Description of Control and Special Characters (Cont) 


Name/Function 


Cancel: A control character used to indicate that 
the data with which it is sent is in error and is 
to be disregarded. 


End of Medium: A control character associated with 
the sent data which may be used to identify the 
physical end of the medium, or the end of the 
used, or wanted, portion of information recorded 
on a medium. The position of this character does 
not necessarily correspond to the physical end of 
the medium. 


Substitute: A character that may be substituted for a 
character which is determined to be invalid or in 
error. 


Escape: A control character intended to provide code 
extension (supplementary characters) in general 
information interchange. The Escape character itself 
is a prefix affecting the interpretation of a limited 
number of contiguously following characters. 


File Separator, Group Separator, Record Separator, and 
Unit Separator. These information separators may be 
optionally used within data, except that their 
hierarchical relationship shall be such that FS is the 
most inclusive, then GS, then RS, and US is least 
inclusive. The content and length of a File, Group, 
Record, or Unit are not specified. 


Space: A normally non-printing graphic character used 
to separate words. It is also a format effector which 
controls the movement of the printing position, one 
printing position forward. 


Delete: This character is used primarily to “erase” or 
“obliterate” erroneous or unwanted characters in 
perforated tape. In the strict sense, DEL is not a 
control character. 
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APPENDIX D 
GLOSSARY 


INTRODUCTION 


The terms. in this glossary are defined in accordance with meaning as used in this document describing 
COBOL74 and may not have the same meaning for other languages. 


Data Base Management definitions are not included in this glossary. Refer to the B 1000 Systems Data 
Management System II (DMSII) Reference Manual for these definitions. 


DEFINITIONS 


Abbreviated Combined Relation Condition 
The combined condition that results from the explicit omission of a common subject or a common 
subject and common relational operator in a consecutive sequence of relation conditions. 


Access Mode 
The manner in which records are to be operated upon within a file. 


Actual Decimal Point 
The physical representation, using either of the decimal point characters period (.) or comma (,), of 
the decimal point position in a data item. 


Actual Key 
A key whose contents identify a logical record in a sequential file. 


Alphabet-Name 
A user-defined word, in the SPECIAL-NAMES paragraph of the ENVIRONMENT DIVISION, that 
assigns a name to a specific character set and/or collating sequence. 


Alphabetic Character 
A character that belongs to the following set of letters: A, B, C, D, E, F, G, H, I, I, K, L, M, N, 
O, P, Q, R, S, T, U, V, W, X, Y, Z, and the space. 


Alphanumeric Character 
Any character in the computer character set. 


Alternate Record Key 
A key, other than the prime record key, whose contents identify a record within an Indexed File. 


Arithmetic Expression 

An arithmetic expression can be an identifier or a numeric elementary item, a numeric literal, such 
identifiers and literals separated by arithmetic operators, two arithmetic expressions separated by an 
arithmetic operator, or an arithmetic expression enclosed in parentheses. 


1168622 D-1 


B 1000 Systems COBOL74 Language Manual 
Glossary 


Arithmetic Operator : 
A single character, or a fixed 2-character combination, that belongs to the following set: 


Character Meaning 
+ Addition 
_ Subtraction 
- Multiplication 
if Division 
saa Exponentiation 


Ascending Key 
_A key upon the values of which data is ordered starting with the lowest value of key in accordance 
with the rules for comparing data items. 


Assumed Decimal Point 
A decimal point position which does not involve the existence of an actual character in a data item. 
The assumed decimal point has logical meaning but no physical representation. 


At End Condition 
A condition caused: 


a. During the execution of a READ statement for a sequentially accessed file. 


b. During the execution of a RETURN statement, when no next logical record exists for the 
associated sort or merge file. 


c. During the execution of a SEARCH statement, when the search operator terminates with- 
out satisfying the condition specified in any of the associated WHEN phrases. 


Block 

A physical unit of data that is normally composed of one or more logical records. For mass storage 
files, a block may contain a portion of a logical record. The size of a block has no direct relationship 
to the size of the file within which the block is contained or to the size of the logical record(s) that 
are either continued within the block or that overlap the block. The term is synonymous with physical 
record. 


Burroughs Network Architecture (BNA) 

A system which provides a means to perform distributed data processing such as remote data base ac- 
cess, file transfer, remote task initiation and control, logical I/O, interprocess communication, and re- 
source sharing. 


Called Program 
A program which is the object of a CALL statement combined at object time with the calling program 
to produce a run unit. 


Calling Program 
A program which executes a CALL to another program. 
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Cd-Name 
A user-defined word that names an MCS interface area described in a communication description entry 
within the COMMUNICATION SECTION of the DATA DIVISION. 


Character 
The basic indivisible unit of the language. 


Character Position 
A character position is the amount of physical storage sequived to store a single standard data format 
character described as usage is DISPLAY. 


Character-String 
A sequence of contiguous characters which form a COBOL74 word, a literal, a PICTURE character- 
string, or a comment-entry. 


Class Condition 
The proposition, for which a truth value can be determined, that the content of an item is wholly al- 
phabetic or is wholly numeric. 


Clause 
A clause is an ordered set of consecutive COBOL74 character-strings whose purpose is to specify an 
attribute of an entry. 


COBOL74 Character Set é . 
The complete COBOL74 character set consists of the 52 characters listed below: 


Character Meaning 


0,1,...,9 Digit 

A,B,...,Z Letter 

. Space (blank) 

Plus sign 

Minus sign (hyphen) 
Asterisk 

Stroke (virgule, slash) 
Equal sign 

Currency sign 
Comma (decimal point) 
Semicolon 

Period (decimal point) 
Quotation mark 

Left parenthesis 

Right parenthesis 
Greater than symbol 
Less than symbol 
Commercial at 


eee GI i ED ae 


QBAVrA Sard 


COBOL74 Word 
Refer to Word. 
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Collating Sequence 
The sequence in which the characters are acceptable in a computer are ordered for purposes of sorting, 
merging, and comparing. 


Column 
A character position within a print line. The columns are numbered from 1, by 1, starting at the left- 
most character position of the print line and extending to the rightmost position of the print line. 


- Combined Condition 
A condition that is the result of connecting two or more conditions with the AND or the OR logical 
operator. 


Comment-Entry , 
An entry in the IDENTIFICATION DIVISION that may be any combination of characters from the 
computer character set. 


Comment Line 

A source program line represented by an asterisk in the indicator area of the line and any characters 
from the computer’s character set in Area A and Area B of that line. The comment line serves only 
for documentation in a program. A special form of comment line represented by a stroke (/) in the 
indicator area of the line and any characters from the computer's character set in area A and area 
B of that line cause page ejection before printing a comment. 


Communication Description Entry « 

An entry in the COMMUNICATION SECTION of the DATA DIVISION that is composed of the level 
indicator CD, followed by a cd-name, and then followed by a set of clauses as required. It describes 
the interface between the Data Communication Subsystem and the COBOL74 program. 


Communication Device 

A mechanism (hardware or hardware/software) capable of sending data to a queue and/or receiving 
data from a queue. This mechanism may be a computer or a peripheral device. One or more programs 
containing communication description entries and residing within the same computer define one or 
more of these mechanisms. 


Communication Section 
The section of the DATA DIVISION that describes the interface areas between the MCS and the pro- 
gram, composed of one or more CD description entries. 


Compile Time 
The time when a COBOL74 source program is translated to a COBOL74 object program by the 
COBOL74 compiler. 


Compiler-Directing Statement | 
A statement that begins with a compiler-directing verb and causes the compiler to take a specific action 
during compilation. 


Complex Condition 
A condition in which one or more logical operators act upon one or more conditions. Refer to the 
terms Negated Simple Condition, Combined Condition, and Negated Combined Condition. 


- Computer-Name 
A system name that identifies the computer upon which the program is to be compiled or run. 
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Condition 

A status of a program at execution time for which a truth value can be determined. Where the term 
‘condition’ (condition-1, condition-2, ...) appears in this language in or in reference to ‘condition’ 
(condition-1, condition-2, ...) of a general format, it is a conditional expression consisting of either 
a simple condition optionally parenthesized, or a combined condition consisting of the syntactically cor- 
rect combination of simple conditions, logical operators, and parentheses, for which a truth value can 
be determined. 


Condition-Name 

A user-defined word assigned to a specific value, set of values, or range of values, within the complete 
set of values that a conditional variable may possess; or the user-defined word assigned to a status 
of a switch or device. 


Condition-Name Condition 
The proposition, for which a truth value can be determined, that the value of a conditional variable 
is a member of the set of values attributed to a condition-name associated with the conditional variable. 


Conditional Expression 
A simple condition or a complex condition specified in an IF, PERFORM, or pen Ree statement. 
Refer to the terms Simple Condition and Complex Condition. 


Conditional Statement 
A conditional statement specifies that the truth value of a condition is to be determined and that the 
subsequent action of the object program is dependent on this truth value. 


Conditional Variable 
A data item one or more values of which has a condition-name assigned to it. 


Configuration Section 
A section of the ENVIRONMENT DIVISION that describes overall specifications of source.and object 
computers. 


Connective 
A reserved word that is used to: 


a. Associate a data-name, paragraph-name, condition-name, or text-name with the qualifier. 
b. Link two or more operands written in a series. 
c. Form conditions (logical connectives). Refer to the term Logical Operator. 


Contiguous Items 
Items that are described by consecutive entries in the DATA DIVISION, and that bear a definite 
hierarchic relationship to each other. 


Counter 

A data item used for storing painpere or number representations in a manner that permits these num- 
bers to be increased or decreased by the value of another number, or to be changed or reset to zero 
or to an arbitrary positive or negative value. 


Currency Sign 
The character '$’ of the COBOL74 character set. 
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Currency Symbol 

The character defined by the CURRENCY SIGN clause in the SPECIAL-NAMES paragraph. If no 
CURRENCY SIGN clause is present in a COBOL74 source program, the currency symbol is identical 
to the currency sign. 


Current Record 
The record which is available in the record area associated with the file. 


Current Record Pointer 
A conceptual entity that is used in the selection of the next record. 


Data Clause 
A clause that appears in a data aeccuintion entry in the DATA DIVISION and provides formation 
describing a particular attribute of a data item. 


Data Communication Subsystem 
Consists of a Network Controller and one or more programs (optional MCS). The Network Controller 
is responsible for handling all the details of the data communications line discipline. 


Data Description Entry 
An entry in the DATA DIVISION that is composed of a level-number followed by a data-name, if 
required, and then followed by a set of data clauses, as required. 


Data Item 
A character or a set of contiguous characters (excluding in either case literals) defined as a unit of 
data by the COBOL74 program. 


Data-Name 

A user-defined word that names a data item described in a data description entry in the DATA DIVI- 
SION. When used in the general formats, data-name represents a word which can neither be sub- 
scripted, indexed, nor qualified unless specifically permitted by the rules for that format. 


Debugging Line 
A debugging line is any line with D in the indicator area of the line. 


Debugging Section 
A debugging section is a section that-contains a USE FOR DEBUGGING statement. 


Declaratives 
A set of one or more special purpose sections, written at the beginning of the PROCEDURE DIVI- 
SION, the first of which is preceded by the key word DECLARATIVES and the last of which is fol- 
lowed by the key words END DECLARATIVES. A declarative is composed of a section header, fol- 
lowed by a USE compiler directing sentence, followed by a set of zero, one or more associated 
paragraphs. 


Declarative-Sentence 
A compiler-directing sentence consisting of a single USE statement terminated by the separator period. 


Delimiter 

A character or a sequence of contiguous characters that identify the end of a string of characters and 
separates that string of characters from the following string of characters. A delimiter is not part of 
the string of characters that it delimits. 
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Descending Key 
A key upon the values of which data is ordered starting with the highest value of key down to the 
lowest value of key, according to the rules for comparing data items. 


Destination 
The symbolic identification of the receiver of a transmission from a queue. 


Digit Position 
A digit position is the amount of physical storage required to store a single digit. This amount may 
vary depending on the usage of the data item describing the digit position. 


Division 

A set of zero, one or more sections of paragraphs, called the division body, that are formed and com- 
bined in accordance with a specific set of rules. There are four divisions in a COBOL74 program: 
IDENTIFICATION, ENVIRONMENT, DATA, and PROCEDURE. 


Division Header 
A combination of words followed by a period and a space that indicates that beginning of a division. 
The division headers are: 


IDENTIFICATION DIVISION. 

ENVIRONMENT DIVISION. 

DATA DIVISION. 

PROCEDURE DIVISION [USING data-name-1 [data-name-2] ... ] . 


Dynamic Access 

An access mode in which specific logical records can be obtained from or placed into a mass storage 
file in a nonsequential manner (see Random Access) and obtained from a file in a sequential manner 
(see Sequential Access), during the scope of the same OPEN statement. 


Editing Character 
A single character or a fixed two-character combination belonging to the following set: 


Character Meaning 

B Space 

0 Zero 

+ Plus 

- Minus 
CR Credit 
DB Debit 

Z Zero suppress 

. Check protect 

$ Currency sign 

; Comma (decimal point) 
; Period (decimal point) 
/ Stroke (virgule, slash) 


Elementary Item 
A data item that is described as not being further logically subdivided. 
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End of PROCEDURE DIVISION 
The physical position in a COBOL74 source program after which no further procedures appear. 


Entry 
Any descriptive set of consecutive clauses terminated by a period and written in the IDENTIFICATION 
DIVISION, ENVIRONMENT DIVISION, or DATA DIVISION of a COBOL74 source program. 


Environment Clause 
A clause that appears as part of an ENVIRONMENT DIVISION entry. 


Execution Time 
See Object Time. 


Extend Mode 
The state of a file after execution of an OPEN statement, with the EXTEND phrase specified for that 
file and before the execution of a CLOSE statement for that file. 


Figurative Constant 
A compiler-generated value referenced through the use of certain reserved words. 


File 
A collection of records. 


File Clause 
A clause that appears as part of any of the following DATA DIVISION entries: 


File description (FD) 
Sort-Merge file description (SD) 
Communication description (CD) 


FILE-CONTROL 
The name of an ENVIRONMENT DIVISION paragraph in which the data files for a given source 
program are declared. 


File Description Entry 
An entry in the FILE SECTION of the DATA DIVISION that is composed of the level indicator FD, 
- followed by a file-name, and then followed by a set of file clauses as required. 


File-Name 
A user-defined word that names a file described in a file description entry within the FILE SECTION 
of the DATA DIVISION. 


' File Organization 
The permanent logical file structure established at the time that a file is created. 


File Section 
The section of the DATA DIVISION that contains file description entries and Sort- Melge file descrip- 
tion entries together with associated record descriptions. 


Format 
A specific arrangement of a set of data. 
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Group Item 
A named consuons set of elementary or group items. 


Hexadecimal Literal 

A character-string bounded by @ signs. The string of characters must consist of one or more characters 
chosen from the set of hexadecimal digits consisting of the digits 0 through 9, A, B, C, D, E, and 
F. The characters A through F are the hexadecimal digit representation for the decimal values 10 
through 15. 


High Order End 
The leftmost character of a string of characters. 


I-O-Control 

The name of an ENVIRONMENT DIVISION paragraph in which object program requirements for 
specific input-output techniques, rerun points, sharing of same areas by several data files, and multiple 
file storage on a single input-output eeu are specified. 


I-O Mode 
The state of a file after execution of an OPEN statement, with the I-O phrase specified, for that file 
and before the execution of a CLOSE statement for that file. 


Identifier 
A data-name, followed as required by the syntactically correct combination of qualifiers, subscripts, 
and indices necessary to make unique reference to a data item. 


Imperative Statement 
A statement that begins with an imperative verb and specifies an unconditional action to be taken. 
An imperative statement may consist of a sequence of imperative statements. 


Index 
A computer storage position or register, the contents of which represent the identification of a 
particular element in a table. 


Index Data Item 
A data item in which the value associated with an index-name can be stored. 


Index-Name 
A user-defined word that names an index associated with a epeeine table. 


Indexed Data-Name 
An identifier that is composed of a data-name, followed by one or more e index-names enclosed in pa- 
rentheses. 


Indexed File 
A file with indexed organization. 


Indexed Organization 
The permanent logical file structure in which each record is identified by the value of one or more 
keys within that record. 


Input File 
A file that is opened in the input mode. 
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Input Mode 
The state of a file after execution of an OPEN statement, with the INPUT phrase specified, for that 
file and before the execution of a CLOSE statement for that file. 


Input-Output 
A file that is opened in the I-O mode. 


INPUT-OUTPUT SECTION 

The section of the ENVIRONMENT DIVISION that names the files and the external media required 
by an object program and which provides information required for transmission and handling of data 
during execution of the object program. 


Input Procedure 
A set of statements that is executed each time a record is released to the sort file. 


Integer 
A numeric literal or a numeric data item that ee not include any character positions to the right 
of the assumed decimal point. Where the term ‘integer’ appears in general formats, integer must not 
be a numeric data item, and must not be signed nor zero unless explicitly allowed by the rules of that 
format. 


Intermediate Data Item 
A signed numeric data item provided by the compiler that contains the results developed in the course 
of an arithmetic operation prior to the final result being moved to the resultant-identifier, if any. 


Invalid Key Condition 
A condition, at object time, caused when a specific value of the key associated with an Indexed or 
Relative File is determined to be invalid. 


Key 
A data item which identifies the location of a record, or a set of data items which serve to identify 
the ordering of data. 


Key of Reference 
The key, either prime or alternate, currently being used to access records within an Indexed File. 


Key Word 
A reserved word whose presence is required when the format in which the word appears is used in 
a source program. 


Language-Name 
A system name that specifies a particular programming language. 


Level Indicator 
Two alphabetic characters that identify a specific type of file or a position in hierarchy. 
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Level-Number 

A user-defined word which indicates the position of a data item in the hierarchical structure of a logical 
record or which indicates special properties of a data description entry. A level-number is expressed 
as a one-or two-digit number. Level-numbers in the range 1 through 49 indicate the position of a data 
item in the hierarchical structure of a logical record. Level-numbers in the range 1 through 9 may be 
written either as a single digit or as a zero followed by a significant digit. Level-numbers 66, 77, and 
88 identify special properties of a data description entry. 


Library-Name 
A user-defined word that names a COBOL74 library that is to be used by the ee for a given 
source program compilation. 


Library-Text 
A sequence of character-strings and/or separators in a COBOL74 library. 


Line Number | 
An integer that denotes the vertical position of a report line on a page. 


Linkage Section 
The section in the DATA DIVISION of the called program that describes data items available from 
the calling program. These data items may be referred to by both the calling and called program. 


Literal 
A character-string whose value is implied by the ordered set of characters comprising the string. 


Logical Operator 
One of the reserved words AND, OR, or NOT. In the formation of a condition, AND and/or OR 
can be used as logical connectives. NOT can be used for logical negation. 


Logical Record 
The most inclusive data item. The level-number for a record is Ol. 


Low Order End 
The rightmost character of a string of characters. \ 


Mass Storage 
A storage medium on which data may be organized and maintained in both a sequential and nonse- 
quential manner. 


Mass Storage Control System (MSCS) 
An input-output control system that directs, or controls, the processing of mass ; storage files. 


Mass Storage File 
A collection of records that is assigned to a mass storage medium. 


MCS 
Refer to Message Control System. 


Merge File 


A collection of records to be merged by a MERGE statement. The merge file is created and can be 
used only by the merge function. 
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Message 
Data associated with an end of message indicator or an end of group indicator. Refer to Message Indi- 
cators. | 


Message Control System (MCS) 
A communication control system that supports the processing of messages. 


Message Count 
The count of the number of complete messages that exist in the designated queue of messsages. 


Message Indicators 

EGI (end of group indicator), EMI (end of message indicator), and ESI (end of segment indicator) 
_are conceptual indications that serve to notify the MCS that a specific condition exists. 

Within the hierarchy of EGI, EMI, ESI, an EGI is conceptually equivalent to an ESI, EMI, and EGI. 
An EMI is conceptually equivalent to an ESI and EMI. Thus, a segment may be terminated by an 
EMI or EGI. 


Message Segment 
Data that forms a logical subdivision of a message normally associated with an end of segment indica- 
tor. Refer to Message Indicators. 


Mnemonic-Name 
A user-defined word that is associated in the ENVIRONMENT DIVISION with a specified name. 


MSCS 
Refer to Mass Storage Control System. 


Native Character Set 
The character set associated with the computer for which object code is generated. 


Native Collating Sequence 
The collating sequence associated with the native character set. 


Negated Combined Condition 
The NOT logical operator immediately followed by a parenthesized combined condition. 


Negated Simple Condition 
The NOT logical operator immediately followed by a simple condition. 


Network Controller 
The Network Controller program is a data communications operating system and is responsible for 
handling all of the details of the data communications line discipline. 


Next Executable Sentence . 
The next sentence to which control will be transferred after execution of the current statement is com- 
plete. 


Next Record 
The record which logically follows the current record of a file. 
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Noncontiguous Items 
Elementary data items, in the WORKING-STORAGE and LINKAGE SECTIONS, which bear no 
hierarchic relationship to other data items. 


Nonnumeric Item 

A data item whose description permits its contents to be composed of any combination of characters 
taken from the computer's character set. Certain categories of nonnumeric items may be formed from 
more restricted character sets. 


Nonnumeric Literal 

A character-string bounded by quotation marks. The string of characters may include any character 
in the computer’s character set. To represent a single quotation mark character within a nonnumeric 
literal, two contiguous quotation marks must be used. 


Numeric Character 
A character that belongs to the following set of digits: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9. 


Numeric Item 

A data item whose description restricts its contents to a value represented by characters chosen from 
the digits 0 through 9; if signed, the item may also contain a +, -, or other representation of an 
operational sign. 


Numeric Literal ; 

A literal composed of one or more numeric characters that also may contain either a decimal point, 
an algebraic sign, or both. The decimal point must not be the rightmost character. The algebraic sign, 
if present, must: be the leftmost character. 


OBJECT-COMPUTER 
The name of an ENVIRONMENT DIVISION paragraph in which the computer environment, within 
which the object program is executed, is described. 


Object of Entry 
A set of operands and reserved words, within a DATA DIVISION entry, that immediately follows the 
subject of the entry. 


Object Program 

A set or group of executable instructions and other material designed to interact with data to provide 
problem solutions. In this context, an object program is generally the result of the operation of a 
COBOL74 compiler on a source program. Where there is no danger of ambiguity, the word ‘program’ 
alone may be used in place of the phrase ‘object program’. 


Object Time 
The time at which an object program is executed. 


ODT 
Operator Display Terminal. 


Open Mode 

The state of a file after execution of an OPEN statement for that file and before the execution of 
a CLOSE statement for that file. The particular open mode is specified in the OPEN statement as ei- 
ther INPUT, OUTPUT, I-O, or EXTEND. 
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Operand 

Whereas the general definition of operand is ‘that component which is operated upon,’ for the pur- 
poses of this manual, any lower-case word or words that appear in a statement or entry format may 
be considered to be an operand and, as such, imply reference to the data indicated by the operand. 


Operational Sign | 
An algebraic sign, associated with a numeric data item or a numeric literal, to indicate whether its 
value is positive or negative. 


NE 3 Optional Word 

A reserved word that is included in a specific format only to improve the readability of the language 
and whose presence is optional to the user when the format in which the word appears is used in a 
source program. 


Output File 
A file that is opened in either the output mode or extend mode. 


Output Mode 
The state of a file after execution of an OPEN statement, with the OUTPUT or EXTEND phrase spec- 
ified for that file and before the execution of a CLOSE statement for that file. 


Output Procedure 

A set of statements to which control is given during execution of a SORT statement after the sort func- 
tion is completed, or during execution of a MERGE statement after the merge function has selected 
the next record in merged order. 


Page 
A vertical division of a report representing a physical separation of report data, the separation being 
based on internal reporting requirements and/or external characteristics of the reporting medium. 


Page Body 
That part of the logical page in which lines can be written and/or spaced. 


Page Footing 
A report group that is presented at the end of a report page. 


Page Heading 
A report group that is presented at the beginning of a report page. 


Paragraph 

In the PROCEDURE DIVISION, a paragraph-name followed by a period and a space and by zero, 
one, or more sentences. In the IDENTIFICATION and ENVIRONMENT DIVISIONS, a paragraph 
header followed by zero, one, or more entries. 
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Paragraph Header . 
A reserved word, followed by a period and a space that indicates the beginning of a paragraph in the 
IDENTIFICATION and ENVIRONMENT DIVISIONS. The permissible paragraph headers are: 


In the IDENTIFICATION DIVISION: 
PROGRAM-ID. 
AUTHOR. 
INSTALLATION. 
DATE-WRITTEN 
DATE-COMPILED. 
SECURITY. 


In the ENVIRONMENT DIVISION: 
SOURCE-COMPUTER. 
OBJECT-COMPUTER. 
SPECIAL-NAMES. 
FILE-CONTROL. 
J-O-CONTROL. 


Paragraph-Name 
A user-defined word that identifies and begins a paragraph in the PROCEDURE DIVISION. 


Phrase 
A phrase is an ordered set of one or more consecutive COBOL74 character-strings that form a portion 
of a COBOL74 procedural statement or of a COBOL74 clause. 


Physical Record 
Refer to Block. 


Port File ' 
A type of file used by the Burroughs Network Architecture (BNA) system to provide paths between 
two or more processes. 


Prime Record Key 
A key whose contents uniquely identify a record within an Indexed File. 


Procedure 
A paragraph or group of logically successive paragraphs, or a section or group of logically successive 
sections, within the PROCEDURE DIVISION. 


Procedure-Name | 
A user-defined word which is used to name a paragraph or section in the PROCEDURE DIVISION. 
It consists of a paragraph-name (which may be qualified) or a section-name. 


Program-Name 
A user-defined word that identifies a COBOL74 source program. 


Pseudo-Text 


- A sequence of character-strings and/or separators bounded by, but not including, pseudo-text delimit- 
ers. 
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Pseudo-Text Delimiter 
Two contiguous equal sign (=) characters used to delimit pseudo-text. 


Punctuation Character 
A character that belongs to the following set: 


Character Meaning 


: Comma 

; Semicolon 

; Period 

‘ Quotation mark 

( Left parenthesis 

) Right parenthesis 
Space 

= Equal sign 

@ Commercial at 


Qualified Data-Name . 
An identifier that is composed of a data-name followed by one or more sets of either of the connectives 
OF and IN followed by a data-name qualifier. 


Qualifier 


1. A data-name which is used in a reference together with another data-name at a lower level in 
the same hierarchy. 


2. A section-name which is used in a reference together with a paragraph-name specified in that 
section. 


3. ‘A library-name which is used in a reference together with a text-name associated with that 
library. 


Queue . 
A logical collection of messages awaiting transmission or processing. 


Queue Name 
A symbolic name that indicates to the MCS the logical path by which a message or a portion of a 
completed message may be accessible in a queue. 


Random Access 
An access mode in which the program-specified value of a key data item identifies the logical record 
that is obtained from, deleted from or placed into a Relative or Indexed file. 


Record 
Refer to Logical Record. 


Record Area 


A storage area allocated for the purpose of processing the record described in a record description entry 
in the FILE SECTION. 


D-16 


B 1000 Systems COBOL74 Language Manual 
Glossary 


Record Description 
Refer to Record Description Entry. 


Record Description Entry 
The total set of data description entries associated with a particular record. 


Record Key 
A key, either the prime record key or an alternate record key, whose contents identify a record within 
an Indexed File. 


Record-Name 
A user-defined word that names a record described in a record description entry in the DATA DIVI- 
SION. 


Reference Format 
A format that provides a standard method for describing COBOL74 source programs. 


Relation 
Refer to Relational Operator. 


Relation Character 
A character that belongs to the following set: 


Character Meaning 
= ‘Greater than 
< Less than 
= Equal to 


Relation Condition 

The proposition, for which a truth value can be determined, that the value of an a ehinele: expression 
or data item has a specific relationship to the value of another arithmetic expression or data item. ‘Refer 
to Relational Operator. 


Relational Operator 

A reserved word, a relation character, a group of consecutive reserved words, or a group of consecutive 
reserved words and relation characters used in the construction of a relation condition. The permissible 
operators and their meanings are: 


Relational Operator Meaning 
IS [NOT] GREATER THAN Greater than or not greater than 
IS [NOT] > . 
IS [NOT] LESS THAN | 
IS [NOT] < | Less than ’or not less than | 
IS [NOT] EQUAL TO 
IS [NOT] = . Equal to or not equal to 


Relative File 
A file with relative organization. 
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Relative Key 
A key whose contents identify a logical record in a Relative File. 


Relative Organization 
The permanent logical file structure in which each record is uniquely identified by an integer value 
greater than zero, which specifies the record’s logical ordinal position in the file. 


Reserved Word 
A COBOL74 word specified in the list of words which may be used in COBOL74 source programs, 
but which must not appear in the programs as user-defined words. 


Resultant-Identifier 
A user-defined data item that is to contain the result of an arithmetic expression. 


Run Unit 
A set of one or more object programs which function, at object time, as a unit to provide problem 
solutions. 


Section 
A set of zero, one, or more paragraphs or entries, called a section body, the first of which is preceded 
by a section header. Each section consists of the section header and the related section body. 


Section Header 

A combination of words followed by a period and a space that indicates the beginning of a section 
in the ENVIRONMENT, DATA, and PROCEDURE DIVISIONS. 

In the ENVIRONMENT and DATA DIVISIONS, a section header is composed of reserved words fol- 
lowed by a period and a space. The permissible section headers are: 


In the ENVIRONMENT DIVISION: 
CONFIGURATION SECTION. 
INPUT-OUTPUT SECTION. 


In the DATA DIVISION: 
FILE SECTION. 
WORKING-STORAGE SECTION. 
LINKAGE SECTION. 
COMMUNICATION SECTION. 


In the PROCEDURE DIVISION, a section header is composed of a section-name, followed by the 
reserved word SECTION, followed by a segment-number (optional), followed by a period and a space. 


Section-Name 
A user-defined word which names a section in the PROCEDURE DIVISION. 


Segment-Number 

A user-defined word which classifies sections in the PROCEDURE DIVISION for purposes of segmen- 
tation. Segment-numbers may contain only the characters "0", "1", ..., "9". A segment-number may 
be expressed as a l-, 2-, 3-, or 4-digit number. 


Sentence 
A sequence of one or more statements, the last of which is terminated by a period followed by a space. 
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a ne. 


Separator 
A punctuation character used to delimit character-strings. 


Sequential Access | 
An access mode in which logical records are obtained from or placed into a file in a consecutive prede- 
cessor-to-successor logical record sequence determined by the order of the records in the file. 


Sequential File 
A file with sequential organization. 


Special Character 
A character that belongs to the following set: 


Character Meaning 
+ Plus sign 
- Minus sign 
* Asterisk 
rs Stroke (virgule, slash) 
= Equal sign 
$ Currency sign 


‘ Comma (decimal point) 
; Semicolon 

Period (decimal point) 
Quotation mark 

Left parenthesis 

Right parenthesis 
Greater than symbol 
Less than symbol 
Commercial at 


®BAVr~A Rew 


Special-Character Word 
A reserved word which is an arithmetic operator or a relation character. 


SPECIAL-NAMES 
The name of an ENVIRONMENT DIVISION paragraph in which names are related to user specified 
mnemonic-names. 


Special Registers 
Compiler-generated storage areas whose primary use is to store information produced in conjunction 
with the user of specific COBOL74 features. 


Standard Data Format 

Describes the characteristics of data in a COBOL74 DATA DIVISION under which the oh deacteristics 
or properties of the data are expressed by the appearance of the data on a printed page of infinite 
length and breadth. Standard Data Format is not a form oriented to the manner in which data is stored 
internally in the computer, or on a particular external medium. 


Statement 
A syntactically valid combination of words and symbols written in the PROCEDURE DIVISION be- 


ginning with a verb. 
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Sub-Queue 
A logical hierarchical division of a queue. 


Subfile 
The unique connection to an individual process in a Burroughs Network Architecture (BNA) port file. 


Subject of Entry 
An operand or reserved word that appears immediately following the level indicator or the level-number 
in a DATA DIVISION entry. 


Subprogram 
Refer to Called Program. 


Subscript 
An integer whose value identifies a particular element in a table. 


Subscripted Data-Name 
An identifier that is composed of a data-name followed by one or more subscripts enclosed in parenthe- 
ses. 


Switch-Status Condition 
The proposition, for which a truth value can be determined, that a switch, capable of being set to 
an ‘on’ or ‘off’ status, is set to a specific status. 


System Name 
A COBOL74 word which is used to communicate with the operating environment. 


Table 
A set of logically consecutive items of data that are defined in the DATA DIVISION by means of 
the OCCURS clause. 


Table Element . 
A data item that belongs to the set of repeated items comprising a table. 


Terminal 
The originator of a transmission to a queue, or the receiver of a transmission from a queue. 


Text-Name 
A user-defined word which identifies library text. 


Text-Word 
' Any character-string or separator, except space, in a COBOL74 library or in pseudo-text. 


Truth Value 
The representation of the result of the evaluation of a condition in terms of one of two values: 


TRUE 
FALSE 


Unary Operator 
A plus (+) or a minus (-) sign, which precedes a variable or a left parenthesis in an arithmetic expres- 
sion and which has the effect of multiplying the expression of +1 or -1, respectively. 
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Unit 
A module of mass storage. 


User-Defined Word 
A COBOL74 word that must be supplied by the user to satisfy the format of a clause or statement. 


Variable 
A data item whose value may be changed by execution of the object program. A variable used in an 
arithmetic expression must be a numeric elementary item. 


Verb 
A word that expresses an action to be taken by a COBOL74 compiler .or object program. 


Word 
A character-string of not more than 30 characters which forms a user-defined word, a system-name, 
or a reserved word. 


WORKING-STORAGE SECTION 
The section of the DATA DIVISION that describes working: -storage data items, composed either of 
noncontiguous items or of working-storage records or of both. 


7 77-Level-Description-Entry 
A data description entry that describes a noncontiguous data item with the level-number 77. 
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COBOL74 S-LANGUAGE 


GENERAL 


B 1000 COBOL74 S-language provides the virtual machine interface between the code generated by the 
COBOL74 compiler and the COBOL74 interpreter. This appendix includes a description of the format 
of COBOL74 S-instructions and an explanation of each operator as a member of one of the following 
classes: 


ARITHMETIC 

DATA MOVEMENT 

BRANCHING 

CONDITIONAL BRANCHING 
MISCELLANEOUS 

CHARACTER STRINGS 
INTERPROGRAM COMMUNICATION 


S-LANGUAGE PROGRAMS 


All COBOL74 S-language programs have a base register and a limit register associated with them. The 
area between the base and the limit is to be used as data space only. All program code, organized 
in segment form, is stored at any available location in memory, according to the memory management 
algorithms used by the B operating system. 


The data space includes a nonoverlayable area which contains various parameters such as edit masks, 
literals, and record areas. 


Various parameters, necessary for the running of the S-language object code are stored beyond the 
Limit Register in the Run Structure Nucleus (RSN). 
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BASE REGISTER 


A typical COBOL74 program layout in memory is shown in figure E-1. 


EDIT TABLE (8 CHRS) 
SPECIAL REGISTERS 


COLLATE TABLE ADDRESS 
(24 BITS) 


DATANAME MONITOR 
SYMBOLS 
STATIC MEMORY 


EDIT MASKS 


NONOVERLAYABLE 
USER’S DATA AREA 


DATA SEGMENT ZERO 


STACK BASE 
“DYNAMIC MEMORY 
LIMIT REGISTER <#— 


| NOT ASSIGNED 


—— STACK LIMIT 


EXTENDABLE LIMIT 
RFEINSTATE INFO : 
AND RUN STRUCTURE 


REGISTER 
(BOJ ATTRIBUTE) 


; DATA DICTIONARY 
S-CODE 


G12342 


Figure E-1. COBOL74 Program Layout 
Special registers are listed in Table E-1. 


Table E-1. Special Registers 


ADDRESS NAME PICTURE 
0 sw 9 CMP 
7 Sw8——s—«a CMP 

49 DM-STATUS 9 (2) 
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CONTAINER SIZE 


Container size is a field size in bits necessary to contain the maximum value required for that field. 
For example, a container size of five bits allows a field size to house a 32-bit address (0-31). 


All container sizes in the COBOL74 S-Machine are fixed length and shown in table E-2. 


Table E-2. Container Sizes 


Abbreviation Container Length 
OP Opcode 9 bits 
LEN Data length op - 14 bits 
DISP Data displacement | 20 bits 
SEG Data segment number 10 bits 
BADDR Branch address 21 bits 
DADDR Data address 20 bits 


S-INSTRUCTION FORMAT 


Each COBOL74 S-instruction consists of an S-operator followed by arguments consisting of a variable 
number of bits. The format and interpretation of these arguments are specified by the S-operator and 
are described in detail by the specification of the individual operators. An example of one such instruc- 
tion format is illustrated below. 


~ OPI OPND COP 
(9) (Variable) (Variable) 


= Information or Literal 


COP Information or Literal 


S-Operators 
All S-operators are encoded in a 9-bit S-operator field denoted gs OPI. 


COP and OPND 


A COP is an inline descriptor Soins to a data item or a literal. An operand (OPND) may be an 
inline COP or an inline literal. All data items are placed in data segment zero. 


There are hres types of descriptors: a short COP, a long COP with segment numbers, and a Jong 
COP without segment numbers. 
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Short COP 
Format: 
0 l 7 24 
0 | pxratenors | ise 
6 17 


A short COP cannot be generated for subscripts, indexes, IPC data, or literals. Because a short COP 
does not contain information on data types, it can be used only with the following S-operators: 


MVA CPN 
MVN CPZ 
MVZ INC 
CPA INC1 


Long COP with No Segment Number 


Format: 


| 


4 


0 24 4 
DATA LENGTH | DISP rest unchanged 


LITERAL 


0 ps 6 


This COP can be used for any data except IPC data. A description of the fields is found in the fol- 
lowing section on In-line Descriptors. 


Long COP with Segment Number 


0 24 34 54 


2 6 10 
11 MSIL DATA LENGTH DISP rest unchanged 


This COP can be used for IPC data only. It cannot be used for literals. Descriptions of the fields 
are provided in the following section on In-line Descriptors. 
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COBOL74. IN-LINE DESCRIPTORS 


An in-line descriptor must provide for the following capabilities: 
1. Multidimensional tables with unlimited subscripting/indexing (the real limit is 48). 
2. Run-time bounds-checking on each dimension of a table. 
3. Variable length data items with an OCCURS DEPENDING clause. 
4. Shared data addressing. 
5. The specification of CODE-SET. 
A variable length data item may be declared in COBOL74 by using an OCCURS DEPENDING clause. 
Example: 
O1 A, 
02 B PIC X. 
02 C OC 5 TO 10 TIMES DEPENDING ON V. 
03 D PIC X OC 20 TIMES. 
‘In this data structure, A is a variable length item whose length is determined as follows: 
LENGTH [A] = LENGTH [B] + ( V * LENGTH [C] ) 
where 5 LEQ V LEQ 10 
When A is referenced, only that part of it defined by the calculated length is used in any operation. 


When C or D is referenced, the length is not variable, but V must be bound-checked to verify that 
the requested table element exists. 


The Restrictions: 


1. A data description entry that contains an OCCURS DEPENDING clause may only be followed 
by entries that are subordinate to it. 


2. The OCCURS DEPENDING clause cannot be specified in a data description entry that de- 
scribes an item whose size is variable. 


These restrictions ensure that the description of the first subscript/index associated with a variable is 
the only one that contains an OCCURS DEPENDING clause. 
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Implementation Strategy 


COBOL74 S-language employs a continue flag to tell the interpreter that more COP information is 
specified. 


The same bounds-checking information is needed when referencing either a variable length item or the 
first dimension of a subscripted variable contained in a variable length item. Dimension information 
required for the subsequent dimensions is different from that which is required for the first dimension. 


When a variable length item is referenced, the COP of the OCCURS DEPENDING operand is pro- 
vided following the COP of data-name. The operand is bound-checked to verify that it is within the 
specified integer range. 


MULTIPLE-ENTRY-FLAG 


The MULTIPLE-ENTRY-FLAG is TRUE when indicating that multiple entry attributes are associated 
with this entry and FALSE when indicating otherwise. When TRUE, the next entry(s) contain(s) the 
necessary OCCURS DEPENDING and/or subscripting or indexing attribute information. 


SHARED-DATA-FLAG 


The SHARED-DATA-FLAG is TRUE when indicating that this entry was a data item passed by a 
CALL statement of another program and FALSE when indicating otherwise. When TRUE, IPCD-IN- 
DEX specifies the location of the IPC.DICTIONARY descriptor for this entry. 


LITERAL-FLAG 


If this flag is set, then a literal follows after the DATA LENGTH field. 


Data Length 


The data length field is 14 bits wide and contains the length of the data in digits. If this field is the 
length of a variable length item, the data length field contains the length of that part of the table which 
is not variable. The actual length is calculated at run time by the interpreter (refer to Depending Attri- 
butes in this section). 


Segment Number 


Segment number is expressed in binary and specifies the data segment number of the operand. It is 
10 bits in length. 


Displacement 


Displacement is expressed in binary and specifies the digit displacement of the data from the base of 
the data segment. All data is stored beginning at an address which modulo 4-bit must equal zero. The 
container size is 20 bits. 
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DEPENDING-FLAG 


The DEPENDING-FLAG is TRUE when indicating that an OCCURS DEPENDING operand is associ- 
ated with this variable and FALSE when indicating otherwise. When TRUE, the bounds-checking and 
factor information follow in the entry. This is followed by any subscripting or indexing information 
that may be necessary. 


Depending Attributes 


When the DEPENDING-FLAG is TRUE, the attributes of the DEPENDING operand are encoded in 
LOWER-BOUND-0, UPPER-BOUND-0, and FACTOR-O, which are binary fields. LOWER-BOUND- 
0 and UPPER-BOUND-0 contain the integer range of the DEPENDING operand while FACTOR-O 
contains the digit displacement between elements of the table. 


The value of the DEPENDING operand is verified to be greater than or equal to LOWER-BOUND- 
0 and less than or equal to UPPER-BOUND-0. If the value is outside the range, then an error commu- 
nicate is issued. 


If CONTINUE-FLAG-0 is FALSE, then the value of the DEPENDING operand is multipfied by FAC- 
TOR-O and is added to the data length specified in the primary COP entry, and decoding of the multi- 
ple entry attributes terminates. In this case, the data length specified in the COP entry is the fixed 
part of the table. 


If CONTINUE-FLAG-0 is TRUE, then subscripting or indexing information follows. One is subtracted 
from the value of the DEPENDING operand and the result is multiplied by FACTOR-O to form a 
new upper-bound. In this case, FACTOR-1 and UPPER-BOUND-1 are omitted from the entry because 
the equivalence of those factors is represented by FACTOR-0 and NEW.UPPER.BOUND. 


SUBSCRIPT-FLAG 


If the SUBSCRIPT-FLAG is FALSE, it specifies that indexing information follows and that the factor 
associated with each dimension of the table is omitted. If it is TRUE, it specifies that subscripting in- 
formation follows for each dimension of the table. 


Factor and upper-bound fields are binary. Factor is the digit displacement between elements of the ta- 
ble. Upper-bound is the maximum digit displacement allowed for this dimension of the table.. UPPER- 
BOUND.-O differs from the other upper-bound fields in that it represents the maximum value of the 
DEPENDING operand. 


Subscripting 


Subscripting requires a factor and an upper- -bound for each dimension of the variable. The continue- 
flag is TRUE until the last dimension is reached. When the continue- flag becomes FALSE, decoding 
is terminated. _ 


Each subscript value is obtained and 1 is subtracted from it. If the result is less than zero, an error 
communicate is issued; otherwise, the result is multiplied by the associated factor and the product is 
compared to the corresponding upper-bound. If the product exceeds the upper-bound, an error commu- 
nicate is issued; otherwise, the product is added to the address displacement. 
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Because an index value is premultiplied by the associated factor, the factor required for subscripting 
is omitted from the attributes. An upper-bound is required for each dimension of the variable. The 
continue-flag is TRUE until the last dimension is reached. When the continue-flag becomes FALSE, 
decoding is terminated. 


Each index value is obtained, and if it is less than zero or greater than the upper-bound, an error com- 
municate is issued; otherwise, the value is added to the address displacement. The format of the index 
consists of a 4-bit sign followed by seven 4-bit decimal digits. 


In-line COP Entry Format 
The format of an in-line COP entry is as follows: 


0 5 6 7 8 22 
SHARED DATA LENGTH 
SIGNED | pata | MIERAL IN 
FLAG DIGITS 
4 = 0 = No Sign | 
8 = 8-BIT 1 = Sign 
22 32 52 «—_—— Bit Position 


DISPLACEMENT IN 


IPCD INDEX DIGITS 


CONTINUE- 
FLAG-O 
(1) 


DEPENDING- COP-O0O LOWER- UPPER- 
| FLAG BOUND-0 BOUND-O ‘Ud BITS). 
(1) (20 BITS) (20 BITS) 


OCCURS DEPENDING Value | 


Omitted if DEPENDING-FLAG=0 


Omitted if DEPENDING-FLAG=1 


SUBSCRIPT- COP-1 FACTOR.| UPPER- CONTINUE- 
FLAG (14BITS) BOUND-1 FLAG-| 
(1) : (20 BITS) (1) 


Omitted if Indexing 


Subscript or Index Value 


0 = INDEXING 
1 = SUBSCRIPTING 


COP-N- FACTOR-N_ UPPER- CONTINUE- 
(14 BITS) BOUND-N — FLAG-N 
(20 BITS) (1) 


a Omitted if Indexing 
Subscript or Index Value 
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INSTRUCTION SET 


The following list contains the name, mnemonic, and arguments for each instruction in the COBOL74 
S-Language which are discussed in more detail within this appendix. 


Arithmetic 
Name Mnemonic Arguments 
INCREMENT INC OPND1, COP1 
ADD ~ ADD OPND1, COP1, COP2 
DECREMENT DEC OPND1, COP1 
SUBTRACT SUB OPND1, OPND2, COP1 
MULTIPLY MULT OPND1, COP1, COP2 
DIVIDE DIV OPND1, COP1, COP2 
DIVIDE SPECIAL DIVS OPND1, COP1, COP2 
INCREMENT BY ONE INC1 COP1 
DECREMENT BY ONE DEC1 COP1 
Data Movement 
Name Mnemonic Arguments 
MOVE ALPHANUMERIC MVA COP1, OPND1 
MOVE SPACES MVS COP1 
MOVE NUMERIC MVN COP1, OPND1 
MOVE ZEROS MVZ COPI1 
CONCATENATE CAT N, COP1, OPNDO,..., OPNDN 
EDIT EDIT OPND1, COP1, DADDR 
EDIT WITH EXPLICIT MASK EDTE OPND1, COP!1, MASK 
Branching 
Name Mnemonic Arguments 
BRANCH ON OVERFLOW _ BOFL V, BADDR 
SET OVERFLOW SOFL V 
BRANCH UNCONDITIONALLY BUN BADDR 
PERFORM ENTER PERF K, BADDR 
PERFORM EXIT PXIT K 
ENTER NTR BADDR 
EXIT XIT 
GO TO DEPENDING GOTD COP1, L, DBADDRO.,..., 
DBADDRL 
ALTERED GO TO PARAGRAPH GPAR DADDR 
ALTER : ALTR DADDR, ACON 
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Conditional Branching 


_ Name Mnemonic Arguments 
COMPARE ALPHANUMERIC CMPA OPND1, OPND2, R, 
BADDR | 
COMPARE NUMERIC CMPN OPND1, OPND2, R, 
BADDR 
COMPARE FOR ZEROS CMPZ COP1, R, BADDR 
COMPARE FOR SPACES CMPS COPI, R, BADDR 
~ COMPARE FOR CLASS CMPC COP1, C, BADDR 
COMPARE REPEAT CMPR OPND1, COP1, R, 
BADDR 
COMPARE COLLATE . CPC OPND1, COP2, R, 
BADDR 
Miscellaneous . . 
Name Mnemonic Arguments 
COMMUNICATE COMM COP1 
LOAD COMMUNICATE REPLY LDCR DADDR 
CONVERT CONV | COP1, DADDR, N 
MAKE PRESENT MAKP COP1, DADDR 


FILE STATUS FIST RW, COPI 


Character String Handling 


Name Mnemonic Arguments 
DESCRIPTOR SETUP DSET DADDR, COPI1 
INSPECT SETUP ISET V1, V2, FLAC, 


DADDRI1, COP1, COP2, 
DADDR2, OPND1 


INSPECT INSP V1, DADDR1, DADDR2 
STRING STRI Z, OPND1, DADDRI, 
COP1, OPND2, BADDR 
DELIMITER SETUP DLIM V1, V2, DADDRI, COP1 
UNSTRING UNST F, M, Z, C, J, BADDR, 


DADDR1, COPI, DADDR2 ..... 


Interprogram Communication 


Name Mnemonic Arguments 
IPC DICTIONARY IPCD V, COPI, BADDRI 
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Optimized Operation Codes 


Eight operators have been optimized for improved performance: CPA, CPN, CPZ, INC, INCI, MNA, 
MNV, and MVZ. The optimized OP codes include the following data as a part of the OP code: 


1. The type of data item (8-bit or 4-bit). 

2. Signed or unsigned data. 

3. Information about the logical size of operands if the OP code has two operands: 
The following notation is used to describe the OP codes. 


Symbol Meaning 
8 8-bit or 4-bit data item. 
Signed or unsigned data item. 
= TRUE if the LOGICALSIZES of two operands are equal. 


> TRUE if the LOGICALSIZE (OPND1) is greater the 
LOGICALSIZE (OPND2). 


CPA 
OP code: @(1)011100@ CAT SS = 
The LOGICALSIZE of the second caeund is greater than the 
LOGICALSIZE of the first operand. 
CPN 
OP code: @(1)0110@ CAT 88SS = 


The LOGICALSIZE of the second operand is always greater than the LOGICALSIZE of the first 
operand. 


CPZ 


OP code: @(1)0111010@ CAT 8S 
INC 


OP code: @(1)001@ CAT 88SS CA @(1)11@ 
INC 1 


OP code: @(1) 0111100@ CAT 8S 
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MVA 
OP code: @(1)001@ CAT 88SS => 
The first operand is the destination, and the second operand is the source. h3 MVN 
OP code: @(1)010@ CAT 88SS= > 
The first operand is the destination, and the second operand is the source. 
MVZ 


OP code: @(1)0111011@ CAT 8S . 
ARITHMETIC OPERANDS AND INSTRUCTIONS 


In general, operands can have any of the following formats: 
1. Unsigned 4-BIT. 
2. Unsigned 8-BIT. 
3. Signed 4-BIT (sign is MSD). 
4. Signed 8-BIT (sign over MSD). 


Any restrictions concerning the types of operands permitted in an operation are specified under the 
description of the particular operation. 


All fields are addressed by pointing to the most significant bit of the most significant unit which, in 
the case of a signed field, is the sign. 


All fields are considered to be comprised of decimal integers. 
The absolute value is stored if the receiving field is unsigned. 
Unsigned fields are considered positive. 


When a signed format is specified for the receiving field of any arithmetic operation, the sign position 
is set to 1100 for a positive result and to 1101 for a negative result. 


4-BIT operands are interpreted in units of 4 bits. When a signed operand is specified, the sign is inter- 
preted as a separate and leading (leftmost) 4-BIT unit which is not included in the statement of length. 


8-BIT operands are interpreted in units of 8 bits. When a signed operand is specified, the sign is inter- 
preted as being contained in the leftmost 4 bits of the leftmost 8-BIT unit. 


The length of the operand field specifies the number of 4-BIT units. 


When 8-BIT units are specified for the receiving field of an arithmetic operation, the leftmost 4 bits 
of each 8-BIT unit, except the unit carrying a sign, is set to 1111. 
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The value of an 8-BIT unit is carried in the rightmost 4 bits of the unit. Its value is as defined below 
for the 4-BIT unit. The leftmost 4 bits, except for a sign, are ignored. The value and sign interpretation 
of a 4-BIT unit are as follows: 


4-BIT 
Unit Value Sign 
0000 0 + 
0001 1 + 
0010 2 + 
0011 3 + 
0100 4 + 
0101 5 + 
0110 6 + 
0111 7 + 
1000 8 + 
1001 9 + 
1010 Undefined + 
1011 Undefined + 
1100 Undefined + 
1101 Undefined — 
1110 Undefined + 
+ 


1111 Undefined 


In addition and subtraction operations, results generated when the size of the result field is not suffi- 
cient to contain the result are not specified. When the result field is longer than the length of the result, 
leading zero units are stored. 


In three-address add, three-address subtract, and multiply operations, total or partial overlap af the 
first two operands is permitted. Results generated when the result field ony or partially overlaps ei- 
ther of the operand fields, are not specified. 


In two-address add and subtract, total overlap is permitted. Results generated when the result field par- 
tially overlaps the first operand field are not specified. Total overlap implies that the two fields are 
identical. 


No overlap of operands or result fields is permitted in divide operations. Results generated under any 
condition of overlap are not specified. 
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COBOL74 S-LANGUAGE 


ADD THREE ADDRESS 


OP: 08 
Format: 
ADD OPND1, COPI, COP2 


Function: 


Algebraically add an addend denoted by OPNDI to an augend denoted by COP! and store the sum 
in the field denoted by COP2. OPNDI, COP1, and COP2 must be 4-bit items. 
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COBOL74 S-LANGUAGE 


SUBTRACT THREE ADDRESS | SUB 


OP: 10 
Format:. 

SUB OPND1, OPND2, COP1 | 
Function: 


Algebraically subtract a subtrahend denoted by OPND1 from a minuend denoted by OPND2 and store 
the difference in the field denoted by COP1. OPND1, OPND2, and COP1 must be 4-bit items. 
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COBOL74 S-LANGUAGE 


ADD TWO ADDRESS | | | | INC 


Format: 
INC OPND1, COP! 
Function: 


Algebraically add an addend denoted by OPND1 to an augend denoted By COP! and store the sum 
in the field denoted by COPI. 


INC is an optimized S-OP. OPND1 and COP1 must have the same data unit type. OPND1 and COP1 


both must be either 4-bit data items or 8-bit data items. The format of the OP code is 0108855. For 
example, if both OPND1 and COP! are unsigned 8-bit items, then the OP code is 010110011 or 179. 
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COBOL74 S-LANGUAGE 


SUBTRACT TWO ADDRESS ! DEC 


OP: 09 
DEC OPND1, COP! 


Function: 


Algebraically subtract a subtrahend denoted by OPND1 from a minuend denoted by COP! and store 
the difference in the field denoted by COP1. OPNDI1 and COP1 must be 4-bit items. 
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COBOL74S-LANGUAGE i 7 | 
MULTIPLY | MULT | 


OP: 11 
Format: 

MULT OPND1, COP1, COP2 
Function: 


Algebraically multiply a multiplicand denoted by COP1 by a multiplier denoted by OPND1 and store 
the product in the field denoted by COP2. . 


The result field length is the sum of the lengths of the two operands and must be denoted by COP2. 
OPND1 and COPI1 must be 4-bit items. 


The result field is always either a signed 4-BIT format or an unsigned 4-BIT format. 
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‘COBOL74 S-LANGUAGE 


DIVIDE | piv 


OP: 12 


Format: 


DIV OPND1, COP1, COP2 
Function: 


Algebraically divide a dividend denoted by COPI by a dion denoted by OPNDI and store the quo- 
tient in the field denoted by COP2. Store the remainder in the field denoted by COP1. ~ 


The result field length is the difference of the lengths of the two operands and must be denoted by 
COP2. 


Results are not specified if the length of the dividend is not greater than the length of the divisor. 


If the absolute value of the divisor is not greater than the absolute value of an equivalent number of 
leading digits of the dividend, the result is undefined. 


Division by zero results in a fatal error communicate to the MCP. 
OPND1, COP1, and COP2 must be 4-bit items. 
The sign of the remainder is that of the original dividend. 


The dividend field is always either signed 4-BIT format or unsigned 4-BIT format. 
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COBOL74 S-LANGUAGE 


DIVIDE SPECIAL 


DIVS 


OP: 16 


Format: 


DIVS OPND1, COPX1, COPX2 


Function: 


This operation is performed in exactly the same manner as the standard divide (DIV) operator, except 
that when a divisor equal to zero is encountered, an overflow toggle is set and processing is allowed 
to continue. The overflow toggle can be manipulated by the SOFL and BOFL S-operators. 
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COBO L74 S-LANG UAGE 
INCREMENT BY ONE | 
OP: 240-243 
Format: 
INCI COP! 
Function: 


Algebraically add ne Deis integer 1 to an augend denoted by COP1 and store the sum in the field 
apeonee py COPI. 


INCL is an ey S- op ae the OP Sede includes information regarding the data type of COP1. 
COP1 may be a short COP: the format of the OP code is 01111008S. 


OP Code Type of Data 8S 


240 4-bit unsigned 00 
241 4-bit signed 01 
242 8-bit unsigned 10 
243 8-bit signed 11 
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COBOL74 S-LANGUAGE 


DECREMENT BY ONE = | DECI | 


OP: 14 
Format: 

DECI COPI1 
Function: 


Algebraically subtract the positive integer 1 from a minuend denoted by COP1 and store the difference 
in the field specified by COP1. COP1 must be a 4-bit item. 
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DATA MOVEMENT OPERANDS AND INSTRUCTIONS 
In general, fields involved in data movement operations can have any of the following formats: 
1. Unsigned 4-BIT. 
2. Unsigned 8-BIT. 
3. Signed 4-BIT (sign is MSD). 
4. Signed 8-BIT (sign over MSD). 


Any restrictions as to the type of fields permitted in an operation are specified under the eceen 
of the particular operation. 


Refer to Arithmetic Operands and Instructions in this appendix for a description of the four types of 
fields. 


Totally or partially overlapped fields are not permitted, unless specified by the description of the indi- 
vidual instruction. 
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COBOL74 S-LANGUAGE 


MOVE ALPHANUMERIC ET ae 


OP: 64-127 at 


Format: 


MVA COP1, OPND1 
Function: 


Move 8-BIT or 4-BIT units from the source field denoted by OPNDI1 to the 8- BIT or a BIT destination 
field denoted by COP1. 


If the destination field is signed, it receives either the sign of the source if the source is signed, or 
1100 if the source is unsigned. 


If the data type of the source field is 4-BIT and the data type of the destination field is 8-BIT, each 
4-BIT unit is moved to the destination with 1111. 


If the data type of the source field is 8-BIT and the data type of the destination is ,4-BIT, the rightmost 
4 bits are moved. 


If the data type of the source field is the same as the data type of the destination field, each unit 
is moved unchanged to the destination. 


If the destination length is greater in size than the source length, the destination field is filled in on 
the right with trailing spaces (0100 0000) if the destination type is 8-BIT; otherwise, it is filled in on 
the right with zeros (0000). 


If the destination length is lesser in size than the source length, the source data is truncated on the 
right. 


Overlapping operand fields are permitted if the data type of both fields is the same. It can be assumed 
that the source is moved 24 bits (six digits or three characters) at a time into the destination field and 
that the move is from left to right. 


MVA is an optimized S-OP, and COP1 and OPNDI may be short COP descriptors. The OP code 
contains information regarding the data types. The format of the OP code is 00188SS = >. For exam- 
ple, if both source and destination fields are signed 8-bit items of equal length, then the OP code is 
001111110, or 126. 
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COBOL74 S-LANGUAGE 


MOVE SPACES Rive 


OP: 15 


Format: 


MVS COP1 
Function: 
Fill the destination field denoted by COP1 with spaces (0100 0000). 


The data type of the destination field is ignored and is assumed to be unsigned 8-BIT. 
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COBOL74 S-LANGUAGE 


MOVE NUMERIC | To Mn 


OP: 128-191 


Format: 


MVN COP1, OPNDI 
Function: 


Move 8-BIT or 4-BIT units. from the source field denoted by OPND1 to the 8-BIT or 4-BIT destination 
field denoted by COP1. 


If the destination field is signed, it receives either the sign of the source if the source is signed,: or 
1100 if the source is unsigned. 


If the destination field is unsigned, the sign of the source is ignored. 


If the data type of the destination field is 8- BIT, the leftmost 4 bits of each 8-BIT unit, except for 
the sign position, if signed, are set to 1111 regardless of the data type of the source field. 


If the data type of the destination field is 4-BIT, the leftmost 4 bits of each source 8-BIT unit are 
ignored and only the rightmost 4 bits are moved; if the source field is a 4-BIT field, each 4-BIT unit 
is moved unchanged. 


If the destination length is greater in size than the source length, the destination field is filled in on 
the left with leading zeros of appropriate type (1111 0000). 


If the source length is greater in size than the destination length, the source data is truncated on the 
left. 


A sign is placed in the leftmost 4 bits of a field, whether 4-BIT or 8-BIT. 


Overlapping operand fields are permitted if the data type of both fields is the same. It can be assumed 
that the source is moved 24 bits (six digits or three characters) at a time into the destination field and 
that the move is from left to right. 


MVN is an optimized S-OP. Consequently, COP1 and OPNDI may be short COP descriptors. The 
OP code contains information regarding the data types. The format of the OP code is 01088SS =>. 
For example, if both source and destination fields are unsigned and the source field is 4-BIT data and 
the destination field is 8-BIT data and the destination length is greater in size than the source length, 
then the OP code is 010100001, or 161. 
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COBOL74 S-LANGUAGE 


MOVE ZEROS | | MVZ 


OP: 236-239 
Format: 

MVZ COPI 
Function: 


Fill the destination field denoted by COP1 with zeros of the appropriate type (1111 0000 or 0000 if 
4-BIT). 


If the destination field is signed, 1100 is placed into the sign position. 


MVZ is an optimized S-OP. COP! can be a short COP. The format of the OP code is 011101188. 


Opcode Data Type 8S 
236 4-BIT unsigned 00 
237 4-BIT signed 01 
238 8-BIT unsigned 10 
239 8-BIT signed 11 
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COBOL74 S-LANGUAGE | 


CONCATENATE 


OP: 32 
Format: 

CAT N, COP1, OPNDO, ..., OPNDN 
Function: 


Move each of the N+1 fields denoted by OPNDO through OPNDN, in the order specified, into an 
output string starting at the field denoted by COP1. 


The number of source fields is specified by the 4-BIT binary value N. The value N ranging from 0000 
to 1111 is used to indicate 1 to 16 source fields. 


Each field is moved according to the rules specified for MOVE ALPHANUMERIC. 


If the destination length is greater in size than the combined source length, the destination field is filled 
on the right with trailing spaces (0100 0000). 


If the destination length is lesser in size than the combined source lengths, the source data is truncated 
on the right. 
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COBOL74 S-LANGUAGE 


EDIT INSTRUCTIONS AND EDIT MICRO-OPERATORS 


No restrictions are placed on the data type of the source field of an edit operation. 
The data type of the destination field of an edit operation must be unsigned 8-BIT. 


If the destination length is greater in size than the source length, the source data is assumed to have 
leading zero fill on the left. 


If the source length is greater in size than the destination length, the source data is truncated on the 
left. 


The operation is terminated by. an edit micro-operator and not by exhaustion of either the source or 
destination fields. 
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COBOL74 S-LANGUAGE 


OP: 17 
Format: 

EDIT OPND1, COP1, DADDR 
Function: | 


Move data from the source field, denoted by OPND1, to the destination field, denoted by COP1, un-: 
der the control of the micro-operator string contained at the location denoted by the DADDR. 


The argument DADDR is an unsigned binary value which specifies the digit displacement of the micro- 
operator string relative to the data segment zero base. The container size of DADDR is DISPB. 
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COBOL74 S-LANGUAGE 
EDIT WITH EXPLICIT MASK | 
OP: 21 
Format: 


, EDTE OPND1, COP1, MASK 
Function: 
Move data from the source field denoted by OPND1 to the destination field denoted by COP1 under 


the control of the micro-operator string immediately following COP1. The format of the explicit micro- 
operator string is the same as a literal. 
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COBOL74 S-LANGUAGE 


EDIT MICRO-OPERATORS 


The edit micro-operators used in an edit instruction are: 


Operator Mnemonic Operation 
0000 R MVD Move digits 
0001 R MVC Move characters 
0010 R MVS Move suppress 
0011 R FIL Fill suppress . 
0100 N SRD Skip reverse destination 
0101 T INU Insert unconditionally 
0110 T INM Insert on minus 
0111 T INS Insert suppress 
1000 T INF _ Insert float 
1001 T EFM End float mode 
1010 0000 ENZ ~~ End nonzero 
1010 0001 EOM End of mask 
1010 0010 SZS Start zero suppress 
1010 0011 a CP Complement check protect 
OTHERS Undefined . 


"R” indicates a 4-BIT binary value used as a repeat count. The value 0000 represents no repeat; do 
it once. 


"N” indicates a 4-BIT binary value used to skip over a number of destination 8-BIT units. The value 
0000 represents no skip. 


"T" indicates a 4-BIT binary value which is: 

1. Used to index into a table of editing constants. — 

2. Used to indicate a conditional selection between two table constants. 

3. Used to indicate an editing constant in line with the edit-operator string. 
The next edit-operator follows the constant. 


The following table indicates the normal table editing constants as well as the conditional and uncondi- 
tional selection of constants associated with the value of T. 
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EDITING CONSTANTS 


T Table Entry Mnemonic Unconditional or 

EBCDIC Conditional Constant 

0000 “4 PLU 

0001 . ine MIN 

0010 cme AST 

0011 Ae DPT 

0100 Oe CMA 

0101 "$" CUR 

0110 "0" ZRO- 

0111 ee BLK 

1000 SPM Either entry 0 or 1 

1001 SBM Either entry 7 or 1 

1010 LIT In-line 8-BIT constant 


Associated with the edit instructions are three toggles denoted as S for sign, Z for zero suppress, and 
P for check protect. Initially, the Z and the P toggles are assumed to be set to the zero state and 
are set and reset as specified by the description of the individual micro-operators. The S toggle is set 
to 0 if the source field sign is positive, and to 1 if the source field sign is negative. Unsigned fields 
are considered positive. 


MOVE DIGIT 


Set Z to 1, to end the zero suppress state. Move an appropriate unit (4-BIT digit or 8-BIT character) 
from the source field to the destination field. If a 4-BIT unit is moved, append the four bits (1111) 
to the left before storing in the destination. If an 8-BIT unit is moved, the four bits (1111) are substi- 
tuted for the leftmost four biis of the 8-BIT unit. 


MOVE CHARACTER — 


Set Z to 1, to end the zero suppress state. Move an appropriate unit (4-BIT digit or 8-BIT character) 
from the source field to the destination field. If a 4-BIT unit is moved, append the four bits 1111 
to the left before storing in the destination. If an 8-BIT unit is moved, it is moved unchanged. 


MOVE SUPPRESS 


The micro-operator MOVE DIGIT is performed if the 4-BIT unit, or the rightmost four bits of the 
8-BIT unit of the source field are not equal to 0000. 


If the appropriate four bits of the source field unit are equal to 0000 the suppress toggle Z is inspected. 
If Z equals 1, indicating nonsuppress mode, the micro-operator MOVE DIGIT is performed. If the 
suppress toggle Z equals 0, the check protect toggle P is inspected. If P = 0, indicating noncheck pro- 
tect mode, move the table entry containing the 8-BIT code for blank to the destination field. If P = 
1, move the table entry containing the 8-BIT code for asterisk to the destination field. 


SOURCE NOT = 0O Move digit 

Z=1 SOURCE = 0 Move digit 
Z=0 P=0 SOURCE = O Move table entry 7 (Blank) 
Z=0 P=1 SOURCE = 0 Move table entry 2 (Asterisk) 
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FILL SUPPRESS 

If P = 0, indicating noncheck protect mode, move the table entry containing the 8-BIT code for blank 
to the destination field. If P = 1, move the table entry containing the 8-BIT code for asterisk to the 
destination field. 


P 


0 Move table entry 7 (Blank) 


P = 1 Move table entry 2 (Asterisk) 
SKIP REVERSE DESTINATION 


Adjust the address pointer of the destination field to skip backward (lower address) N 8-BIT units. 
INSERT UNCONDITIONALLY 


Move the table entry T as indicated below to the destination field. 


Move table entry T 

Move table entry 0 (Plus) 
Move table entry 1 (Minus) 
Move table entry 7 (Blank) 
Move table entry 1 (Minus) 
Move in-line table entry 


) 


NMMNWNnM 

tou ott ul 

— Om © 
Sseqrejngdae 
mm OO 00 00 © 
© : 


tow Ww ow eal 


INSERT ON MINUS 
Move the table entry T as indicated below to the destination field. 


1 =O. Move table entry T 

0 Move table entry 7 (Blank) 

1 Move table entry 2 (Asterisk) 
T=8 Move table entry 1 (Minus) 
T=9 Move table entry 1 (Minus) 
T=10 Move in-line table entry 


*: S = 0 or only source digits/characters equal to zero (minus zero) have been moved. 


INSERT SUPPRESS 
Move the table entry T as indicated below to the destination field. 


T=0sc) Move table entry T 
P=0 Move table entry 7 (Blank) 
Pet Move table entry 2 (Asterisk) 
Move table entry 0 (Plus) 
Move table entry 1 (Minus) 
Move table entry 7 (Blank) 
Move table entry 1 (Minus) 
0 Move in-line table entry 


NWANN 
ton ow tl 
=) 


iio wd wt ub ut iu 


NNNNNNNWN 
— © 0 C0 00 


oe Rae Rae tae Bae 
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INSERT FLOAT 


Move the table entry T and/or perform the micro-operator MOVE DIGIT as indicated below. 


OURCE 
OURCE 
OURCE NOT= 
OURCE NOT= 


S =0 
S 
S 
S 
SOURCE NOT= 
S 
S 
S 


=0 


OURCE NOT= 
OURCE NOT= 
OURCE NOT = 


NnnNnwWN y 


NNNNNNNNN 
Hou td wow wow wou 
- Or © 


bow ot oo oo oa ot oA 
oooocococor 
Ie i wou ub eu 


mOoowanond-& 


ae Ma Age Maw Ml len hal? a) 
>) 


oooocoeo 


END FLOAT MODE 


Move 
Move 
Move 
Move 
Move 
Move 
Move 
Move 
Move 


digit 
table 
table 
table 
table 
table 
table 
table 


entry 7 (Blank) 

entry 2 (Asterisk) 

entry T, then move digit 

entry 0 (Plus) then move digit - 
entry 1 (Minus) then move digit 
entry 7 (Blank) then move digit . 
entry 1 (Minus) then move digit 


in-line table entry, then move digit 


Move the table entry T as indicated below to the destination field. 


Ee | 


nNnNnnN 
feo ue ll 
—Oore OS 


T=0 
T=8 
T=8 
T=9 
T=9 
T=1 


0:2 
NO OPERATION 


NNNNNNN 
rue i woud 
ma OoTordoc.ec 


END NON-ZERO 


Move table entry T 

Move table entry O (Plus) 
Move table entry 1 (Minus) 
Move table entry 7 (Blank) 
Move table entry 1 (Minus) 
Move in-line table entry 


Terminate the micro-operator operations if any nonzero source character/digit has been moved; other- 


wise, continue with the next in-line operator. 


END OF MASK 
Terminate the micro-operator operations. 
START ZERO SUPPRESS 


Set Z to the zero state. . 


COMPLEMENT CHECK PROTECT 


Complement the state of P. H1 BRANCHING OPERANDS AND INSTRUCTIONS | 
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~BRANCHING OPERANDS AND INSTRUCTIONS 


A branch address argument BADDR has the following format: 


Displacement BTYPE Segment Number 
(21 bits) (1) (7) 


Present if BTYPE = | 


QO: Relative to the current code 
segment base (intrasegment branch) 

1: Relative to a new code segment base 
(intersegment branch) 


Displacement is an unsigned binary value which specifies the bit displacement of an instruction relative 


to a segment base. The container size of the displacement and BTYPE combined is a program 
parameter. 
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BRANCH UNCONDITIONALLY | | BUN 


OP: 03 
Format: 


BUN BADDR 


Function: 


Obtain the next instruction from the location specified by BADDR. 
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BRANCH ON OVERFLOW 


OP: 23 
Format: 
BOFL V, BADDR 


Function: 


If the overflow toggle equals V, a transfer to the address (BADDR) given in the instruction occurs; 
otherwise, control is passed to the next sequential instruction. 


The overflow toggle is unchanged. The length of V is one bit. 
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SET OVERFLOW TOGGLE 
OP: 07 
Format: 
SOFL V 
Function: 


Set the overflow toggle to V. 
The length of V is one bit. 


NOTE 


The overflow toggle is set to 1 if a DIVIDE BY ZERO is encountered in the 
DIVIDE SPECIAL S-operator. 
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PERFORM ENTER | PERF | 


~ OP: 06 
Format: 
PERF K, BADDR 
- Function: 


Create a stack entry with the following format: 


Displacement Segment No. K 
(24) (7) (12) 


Insert a displacement value, relative to the active code segment base and pointing to the next sequential 
S-instruction, into the stack. 


Insert the current code segment number into the stack. Insert the value of K from the instruction into 
the stack. 


Adjust the stack pointer to point to the next possible entry. 


Obtain the next instruction from the location specified by BADDR. 
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PERFORM EXIT 


OP: 34 
Format: 
PXIT K 
Function: 
Compare the K contained in the instruction to the K in the current stack entry and, if unequal, proceed 


to the next in-line S-instruction. If equal, adjust the stack pointer to point to the previous entry and 
obtain the next S-instruction from the information contained in the removed stack entry. 
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ENTER 


OP: 18 
Format: 

NTR BADDR 
Function: 


Same function as PERF. K is assumed to be equal to zero. 
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EXIT | ae 


OP: 19 
Format: 
XIT 


Function: 


Same function as PXIT. K is assumed to be equal to zero. 
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GO TO DEPENDING | cor | 


OP: 39 
Format: 


GOTD COP1, L, DBADDRO, ..., DBADDRL 


Function: 


Compare the 10-bit binary value L with the variable specified by COP1. The variable is first converted 
to a binary value, Modulo 2 to the 24th power. : 


If the binary value of the variable is less than zero or greater than L, the next instruction is obtained 
from the location specified by DBADDRO. The variable can be signed. 


If the binary value of the variable is in the range zero through L, it is used as an index to select from 
the list of DBADDRs the appropriate DBADDR to be used to obtain the next instruction. 


DBADDR and BADDR have the same format with the exception that DBADDR always contains the 
segment number. Although segment number is unnecessary for those DBADDRs with BTYPE equal 
to zero, in order to index into the list of DBADDRs, all of the DBADDRs must be of equal length. 
The container size of DBADDR is BDISPB1 + 7. 
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ALTERED GO TO PARAGRAPH | 


OP: 35 
Format: 
GPAR DADDR 
Function: 
Obtain the next instruction from the location specified by the address ACON. 
The address constant ACON has the same format as a BADDR. 


The angiiment DADDR is an unsigned binary value which specifies the digit displacement of the ACON 
relative to the data segment zero base. 


The container size of DADDR is DISPB. 
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ALTER | Atk | 


OP: 36 
Format: 
ALTR DADDR, ACON 
Function: 
Copy the address constant ACON into the data area specified by the argument DADDR. 
The address constant ACON has the same format as a BADDR. 


The argument DADDR is an unsigned binary value which specifies the digit displacement of the ACON 
relative to the data segment zero base. 


The container size of DADDR is DISPB. 
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CONDITIONAL BRANCH OPERANDS AND INSTRUCTIONS 


If the condition A (R) B is TRUE a transfer to the address (BADDR) given in the instruction occurs; 
otherwise, control is passed to the next sequential instruction. The relation (R) is defined as follows: 


R 


Meaning 


Undefined 
GTR 


Undefined 


Overlap of fields is permitted. *A* is the first operand denoted in the instruction. If an instruction 
has only one operand, then the assumed field is the A field. 
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COMPARE ALPHANUMERIC | CMPA | 3 
OP: 224-231 
Format: 


CMPA OPNDI1, OPND2, R, BADDR 


Function: 
Compare the two operand fields according to binary values. 


The comparison is performed left to right with any shorter operand assumed ‘to be right- filled with 
blank characters (0100 0000 if EBCDIC or 0010 0000 if. ASCII). 


The fields are considered equal when the equal size portions are equal and the longer field (if one iS 
longer) has trailing blanks. 


An 8-BIT data format is assumed for both fields with no checking to verify otherwise. Signed fields 
have the most significant four bits (the sign) modified to the appropriate numeric zone (1111 for. 
EBCDIC, 0011 for ASCII) before being compared. This modification is not permanent and is done 
so that the sign does not affect the result of an alphanumeric comparison. 


CMPA is an optimized S-OP. Consequently, OPND1 and OPND2 may be short COPs. The LOGI- 
CALSIZE of OPND2 is always greater than or equal to the LOGICALSIZE of OPND1. The format 
of the OP code is O11100SS =. 
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COMPARE NUMERIC 


OP: 192-223 


Format: 
CMPN OPNDI, OPND2, R, BADDR 


Function: 


Compare the two operand fields according to the algebraic values, considering the two fields to be com- 
prised of decimal integers. 


When the field sizes are different, the longer field is tested for leading zeros (0000). There is no restric- 
tion as to data type. In comparing an 8-BIT character, only the rightmost four bits of the character 
are considered; the other bits are ignored. 


Two fields of all zeros are equal regardless of sign. 
Unsigned fields are considered positive. Sign conventions are the same as for arithmetic operands. 
Results generated by invalid digit values are undefined. 


CMPN is an optimized S-OP. OPND1 and OPND2 can be short COPS. The LOGICALSIZE of 
OPND1 is always less than the LOGICALSIZE of OPND2. The format of the OP code is 011088SS = 
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COMPARE FOR ZEROS 3 | CMP7, | 


OP: 232-235 


Format: 
CMPZ COPI, R, BADDR 


Function: 


Compare two operand fields according to algebraic values, assuming the first: field to be comprised 
of all zeros (0000). 


There is no restriction as to data type. In comparing an 8-BIT character only the rightmost four bits 
of the character are considered. The other bits are ignored. 


Two fields of all zeros are equal regardless of sign. 
Unsigned fields are considered positive. Sign conventions are the same as for arithmetic operands. 
Results generated by invalid digit values are undefined. 


CMPZ is an optimized S-OP. COP! can be a short COP. The format of the OP code is 011101088. 


OP code Data Type 8S 
232 4-BIT unsigned 00 
233 4-BIT signed 01 
234 8-BIT unsigned 10 
235 8-BIT signed 11 
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COMPARE FOR SPACES 


OP: 37 


Format: 
CMPS COP1, R, BADDR 


Function: 


Compare two operand fields according to binary values, assuming the first field to be comprised of 
all spaces (0100 0000). 


The comparison is performed left to right. 
Unsigned 8-BIT format is assumed with no checking to verify otherwise. 


This operator is not sensitive to collate table address and is valid only for the native collating sequence. 


E 
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COMPARE FOR CLASS 


OP: 38 


Format: 


CMPC COPI, C, BADDR 
Function: 


Compare the operand field and determine whether the field is: 


C=00 Completely alphabetic — 
01 Completely numeric 
10 Not completely alphabetic 
11 Not completely numeric 


If the condition being tested is TRUE, a transfer to the address BADDR given in the instruction oc- 
curs; Otherwise, control is passed to the next sequential instruction. 


In the alphabetic test, each character is range-checked for 1100 0001 through 1100 1001, 1101 0001 
through 1101 1001, 1110 0010 through 1110 1001, and for 0100 0000. Unsigned 8-BIT format is as- 
sumed with no checking to verify otherwise. 


In the numeric test each character is range-checked for 1111 0000 through 1111 1001. Signed or un- 


signed 8-BIT format is permitted. The four bits in the sign position of a signed 8-BIT field are ignored. 
The sign position is the leftmost 4 bits of the most significant character. 
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COMPARE REPEAT ~ 


OP: 45 
Format: 
CMPR OPND1, COP1, R, BADDR . 
Function: 
Compare the two operand fields according to binary value. " 
If the COLLATE TABLE ADDRESS is nonzero, each character in the Operands must be translated 
before comparison. This is accomplished by using each 8-BIT character from OPND1 and COPI1, mul- 
tiplied by eight, as an index into the translation table located at the address given by the COLLATE 
TABLE ADDRESS to obtain the character to be compared. 
Comparison proceeds from left to right. 
The field lengths are considered equal by repeating OPND1. 
Both fields are assumed to have unsigned 8-BIT data type. 


The size of COP1 must be evenly divisible by the size of OPND1; otherwise, the results of the compare 
may be erroneous. . . 
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COMPARE COLLATE | | CPE | 


OP: 04 


Format: 
CPC OPND1, COPI1, R, BADDR 


Function: 


If the COLLATE TABLE ADDRESS is nonzero, this program is using a non-native collating sequence 
and the operands must be translated into the program collating sequence before comparison. This is 
accomplished by using each 8-BIT character from OPND1 and COP1, multiplied by eight, as an index 
into the translation table located at the address given by the COLLATE TABLE ADDRESS to obtain 
the character to be compared. 


The comparison is performed left to right with any shorter operand assumed to be right-filled with 
blank characters. The blanks are translated if this program is using a nonnative collating sequence. 


The fields are considered equal when the equal size portions are equal and the longer field (if one is 
longer) has trailing blanks. 


An 8-BIT data format is assumed for both fields with no checking to verify otherwise. Signed fields 
have the most significant four bits (the sign) modified to 1111 before any necessary translation is done. 
This modification is not permanent and is done so that the sign will not affect the result of an alphanu 
meric comparison. 
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MISCELLANEOUS INSTRUCTION 


COMMUNICATE | 


OP: 33 
Format: 
COMM COP!1 
Function: 
Move the length and address fields from the COP1 entry to the RS.-COMMUNICATE.MSG 


TR field located in the program RS.NUCLEUS, converting them enroute. The origin field is un- 
changed. 


The length is converted from a digit or character length to a bit length. The address is stored as an 
absolute bit address. 


1168622 E-55 


B 1000 Systems COBOL74 Language Manual 
COBOL74 S-Language 


COBOL74 S-LANGUAGE 


LOAD COMMUNICATE REPLY 


OP: 41 


Format: 


LDCR DADDR 


Function: 


LDCR 


The LDCR reply does the mapping of RS.RMSG.P2 and the last logical 1/O status values as follows: 
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RON — © 


Bit 0 


Omer NUABRWNDY = 


RS.RMSG.P2 Value 


Good Complete 

AT END 

I/O Error 
‘Incomplete I/O 
Duplicate Record OK 


LAST LOGICAL I/O STATUS 


Exception Descriptor Follows 
Value of 0 

Value of 1 

Boundary Violation 
Duplicate Key 

Sequence Error 

Variable Length Record Error 
Invalid Key 

Reserved 

Parity Error 

Reserved 

AT END / EOP 

Short Block 

Reserved 

Break On Output 

Reserved . 

Timeout 

Reserved 


OWN = © 


Value Stored at DADDR 


Value Stored at DADDR 


2 
Examine following bits 
; 1 


Not requested 
2 
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CONVERT | 


OP: 40 
Format: 

CONV COPI DADDR N 
Function: 
Convert the operand denoted by COP1 from a decimal value to an unsigned 24-bit binary value, trun- 
cating or zero-filling on the left if necessary. Place the result at the location specified by DADDR. 
N represent the number of bits of converted value to store at DADDR. 


The operand must be either unsigned 4-BIT or unsigned 8-BIT units. 


Refer to MAKE PRESENT for definition of DADDR. 
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MAKE PRESENT MAKP | 


OP: 42 
Format: 


MAKP COP1, DADDR 


Function: 


Load the data segment specified by COP! and place the base relative address of the data area specified 
by COP! into the 24-bit location specified by DADDR. 


DADDR is an unsigned binary value which specifies a digit displacement from the data segment zero 
base. 


The container size of DADDR is DISPB. 
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FILE STATUS : 


OP: 57 
Format: 

ESTA, WRIT, COP 
Function: 


COP contains the translated value of the status of in last IO.WRIT which indicates whether. the last 
I/O was a READ or a WRITE. . 


The translation from COMMUNICATE REPLY (RE.RMSG.P2) or the last logical I/O status values 
to File Status Codes will be according to the following table: 


Communicate Reply ; 
(Values returned by MCP) File Status Codes 


0 Good Complete 00 
1 AT END / EOP 10 (READ) 
34 (WRITE) 
2 I/O Error Examine I/O status 
3 Incomplete I/O | = 
4 Duplicate Record OK 02 
Last Legical I/O Status File Status Codes 
Bit 0 Exception Description Follows 
value of 0 99 
value of 1 Examine following bits 
1 Boundary Violation 24 
2 Duplicate Key 22 
3 Sequence Error 21 
4 Variable Length Record Error 92 
5 Invalid Key 23 
6 Reserved = 
7 Parity Error . 30 
8 Reserved _ 
9 AT END / EOP Not requested 
10 Short Block : 91 


11 Reserved a 
12 Reserved - 


13 Break On Output 97 
14 Reserved — 
15 Timeout 96 


16-23 Reserved — 


For any Communicate Reply or last logical I-O status value that does not have a File Status code, 
the condition is masked out with the result mask specified by the communicate. An EOP will result 
in a 34 instead of the expected (and correct) 00. 
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CHARACTER STRING S-OPS 


DESCRIPTOR SETUP | 


OP: 50 
Format: 
DSET DADDR, COP 
Function: 
Build a descriptor of COP1 at the location specified by DADDR. 


The format of a descriptor (DESC) is that of a COP entry after the OCCURS DEPENDING value 
has been applied and after subscripts or indices have been evaluated to derive an ultimate displacement. 


The current B format for a descriptor is as follows: 


DESC (64) 

DATA- MULTIPLE- SIGNED SHARED- LITERAL- 

TYPE ENTRY- DATA- FLAG 
FLAG . FLAG 

(4) (1) (1) (1) (1) 

LENGTH- SEGNO- DISPLACEMENT FILLER 

IN- OR-IPCD- IN DIGITS 

DIGITS INDEX : 

(14) (10) (20) (12) 


The MULTIPLE.ENTRY.FLAG and LITERAL.FLAG are equal to zero-in the above format. 
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INSPECT SETUP 


OP: 51 
Format: 
ISET V1, V2, FLAC, DADDRI, COP1, COP2, DADDR2, OPND 
Function: 
Build an INSPECT.TABLE entry at DADDRI. 
V1 specifies whether this is the last entry (V1=1) or not. V2 indicates whether BEFORE, V2=1, or 
AFTER, V2=2 or both, V2=3, were specified. FLAC indicates the mode of INSPECTION. 


0 indicates FIRST 


FLAC = 

FLAC = lI indicates LEADING 
FLAC = 2 indicates ALL 

FLAC = 3 indicates CHARACTERS 


DADDRI indicates the location for this INSPECT TABLE entry. COP1 indicates the number of char- 
acters to be tallied or replaced when FLAC is not equal to 3. 


COP2 is the count field for tallying or the replacement string. DADDR2 is the location of the source 
field description if BEFORE/AFTER is specified. 


OPND is the delimiter if BEFORE/AFTER is specified. 

Set INELIGIBLE.FLAG = 0. 

If V2=0, set AFTER.FLAG =0 and éxamine the source field for the delimiter specified by OPND1. 
If a match is found, set ELIGIBLE.POSITION to the character position of the beginning of the first 
occurrence of the delimiter. If a match is not found, set ELIGIBLE.POSITION=0 and 
AFTER.FLAG=1. This, in effect, makes the entry eligible for all characters of the source field. 
If V2=1, set AFTER.FLAG=1 and examine the source field for the delimiter specified by OPND1. 
If a match is found, set ELIGIBLE.POSITION to the character position to the right of the first occur- 
rence of the delimiter. If a match is not found, set INELIGIBLE.FLAG=1. 


If V2=3, set ELIGIBLE.POSITION =0 and AFTER.FLAG= 1. This, in effect, makes the entry eligi- 
ble for all characters of the source field. 
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The description of the INSPECT TABLE is as follows: 


INSPECT.POINTER is the first 24 bits of the Inspect Table which is used to save a pointer into the 


source string in case inspection is interrupted. This field is followed by a variable number of entries 
with the following format: 


INSPECT .TABLE.ENTRY (148) 


LAST- INELIGIBLE- AFTER- ELIGIBLE- FLAC DESC1 DESC2 FILLER 


ENTRY- FLAG) FLAG POSITION 
FLAG 


(1) (1) (1) (13) (2) (64) (64) (2) 


Z Unused 


Count field or 
replacement 
string 


Characters to be 
tallied or replace 
(not meaningful if 
FLAC=3) 


O=FIRST 
1=LEADING 
2=ALL 
3=CHARACTERS 


Position at which DESCI becomes 
eligible for comparison in 
conjunction with the AFTER.FLAG 


0=BEFORE 
1=AFTER 


0O=ELIGIBLE 
1=INELIGIBLE 


O=More entries 
1=Last entry 
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INSPECT 


OP: 52 


Format: 


INSP V, DADDRI1, DADDR2 
Function: 


Inspect the source field specified at DADDR2, tallying or replacing a variable number of 8-BIT charac- 
ter(s). The location of the character(s) to be tallied or replaced and the location of count field or re- 
placement string is specified in the Inspect Table specified by DADDRI. 


Eligibility of an entry is established as follows: 
1. If INELIGIBLE.FLAG=1, this entry is ineligible. 


2. If AFTER.FLAG =0 and the current character position is not less than ELIGIBLE.POSITION, 
this entry is no longer eligible and it is made ineligible; otherwise, the entry is eligible. 


3. If AFTER.FLAG = 1 and the current character position is less than ELIGIBLE.POSITION, this 
enty is ineligible; otherwise the entry is eligible. 


4. When looking for a match and the number of characters left in the source is less than the size 
of the data item specified by DESC1, this entry is made ineligible. 


NOTE 
oe entry is made ineligible by setting INELIGIBLE.FLAG=1. 


The comparison operation to determine the occurrences of the operands to be tallied or replaced occurs 
as follows: 


1. The entries in the INSPECT.TABLE are considered in the order in which they are specified. 


2. If the entry is eligible, DESC1 is compared against an equal number of contiguous characters, 
starting with the leftmost character of the source field. 


3. If no match occurs or if the entry is ineligible, the comparison is repeated for each successive 
entry, if any, until either a match is found or there is no next successive entry. When there 
is no successive entry, the character position immediately to the right of the leftmost character 
position considered in the last comparison cycle is considered as the leftmost character position, 
and the comparison cycle begins with the first table entry. 


4. Whenever a match occurs, tallying or replacing takes place. The character position immediately 
to the right of the rightmost character position that participated in the match is now considered 
to be the leftmost character position of the source field and the colmbenisen cycle starts again 
with the first table entry. 
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5. The comparison operation continues until there are no eligible entries in the table or until the 
rightmost character position of the source field has participated in a match or has been consid- 
ered as the leftmost character position. When this occurs, the inspection is terminated. 


NOTE 
It is intended that this process be interruptable at the beginning of the cycle. 
INSPECT.POINTER is the first 24 bits of the Inspect Table, and is used to 
save and restore the pointer into the source field in case an interrupt occurs. 


A detailed description of the inspection cycle is as follows: 
1. Set current position P=INSPECT.POINTER. 
2. Point to the first entry in the Inspect Table. 
3. If the entry is ineligible, go to step 5. 
4. Do the following according to the contents of FLAC: 
a. If FIRST is specified, look for a match. 
If a match is not found, go to step 5. 
If a match is found, make the entry ineligible, tally or replace and go to step 7. 


b. If LEADING is specified, make the entry ineligible. 


If (AFTER.FLAG=0 AND P NOT=1) OR (AFTER.FLAG=1 AND P 
NOT =ELIGIBLE.POSITION), go to step 5. 


Look for a match. 
If a match is not found, go to step 5. 
If a match is found, tally or replace contiguous occurrences of DESC1 and go to step 7. 
c. If ALL is specified, look for a match. 
If a aaese is not found, go to step 5. 
If a match is found, tally or replace and go to Step 7. 
d. If CHARACTERS is specified, tally or replace and go to step 6. 
5. Get the next table entry. If there is a next entry, go to step 3. | 
If INELIGIBLE.FLAG=1 for all the table entries, terminate the process. 
6. Increment P by 1. 
7. If P > size of the source string, terminate the process; otherwise, go to step 2. 
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OP: 53 
Format: 


STRI Z, OPNDI, DADDRI, COP1, OPND2, BADDR 


Function: 
Move a variable number of 8-BIT characters from the source field denoted by OPND1 to the destina- 
tion field specified at DADDR1 using the value specified in COP1 as a character offset into the destina- 
tion field. Z indicates how OPND2 is to be used: 

QO=OPND2 is the number of characters to move 

1=OPND2 is the delimiting character(s) 

2=OPND2 is omitted — the number of characters to move is the size of OPNDI1 


BADDR specifies the next statement if overflow occurs. 


An overflow condition is caused if at anytime during execution the value in the pointer field is less 
than 1 or greater than the size of the destination string. 


If an overflow condition exists, the operation is terminated and the next instruction address is obtained 
from BADDR. 


The transfer of data is governed by the following rules: 
1. Characters are moved from the source field to the destination field in accordance with the rules 
for MOVE ALPHANUMERIC (MVA), except that no space fill is provided. The contents of 


COP1 are incremented by 1 for each character transferred. 


2. If V=O, characters are transferred until the end of the source field is reached, or until the num- 
ber of characters specified by OPND2 are transferred. 


If V=1, characters are transferred until the end of the source field is reached, or until the 


delimiting character(s) specified by OPND2 are encountered. The delimiting character(s) 
specified are not transferred. 
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DELIMITER SETUP | ey | 


OP: 54 
Format: 

DLIM VI, V2, DADDRI, COP1 
Function: 


Build a delimiter table entry at the location specified by DADDRI1. V1=1 specifies that this is the last 
entry. V2=1 indicates that ALL was specified. COP1 is the delimiter. 


The table used by the Unstring S-operator contains a variable number of entries with the following 
format: 


DELIMITER .TABLE.ENTRY (68) 


LAST-ENTRY-FLAG ALL-FLAG DESC] FILLER 
(1) : (1) (64) (2) 


Unused 
Delimiter descriptor 


O=More entries 
1=Last entry 


O=Single occurrence of delimiter 
1=All occurrences of delimiter treated as one 


When Z=1, DADDR3 specifies the location of the Delimiter Table and the following comparison cycle 
occurs: 


1. The entries in the Delimiter Table are processed in the order specified. 


2. The delimiter is compared against an equal number of characters of the source field, starting 
with the leftmost character. 


3. If no match occurs, the comparison is repeated for any successive entry until a match is found 
or until there is no next successive entry. When there is no successive entry, the character posi- 
tion to the immediate right of the leftmost character position considered in the last comparison 
cycle is considered as the leftmost character position, and the comparison cycle begins with the 
first table entry. 


4. Whenever a match occurs, examination stops and the comparison cycle is discontinued. 


5. The comparison operation continues until there are no more entries in the table or until the 
rightmost character position of the source field has participated in a match or has been consid- 
ered as the leftmost character position. When this occurs, examination is terminated. 
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UNSTRING 


OP: 55 


Format: 


UNST F, M, Z, C, J, BADDR, DADDR1, COPI, 
DADDR2, OPND1, DADDR3, COP2, COP3, DADDR4 


Function: 


Move a variable number of 8-BIT characters from the source field specified at DADDR1 to the destina- 


tion field denoted by COP1 using the value specified at DADDR2 as a character offset into the source 
field. 


Any of the following situations cause an overflow condition: 


1. F=2 or F=3 and the value in the pointer field is less than 1 or greater than the size of the 
source string. 


2. Z=0 and the value in OPNDI is less than 1 or greater than the size of the source string. 
3. Upon completion of the operation, F=1 or F=3 and either of the following occurs: 
a. The source field contains characters that have not been examined. ’ 


b. Z=0 and the number of characters transferred is less than the number of characters 
specified by OPND1. 


If an overflow condition exists, the operation is terminated and the next instruction address is obtained 
from BADDR. 


The transfer of data is governed by the following rules: 


1. The string of source characters is examined beginning with the relative character position in the 
pointer field. 


2. The aunbet of characters examined is determined as follows: 


a. If Z=1, the examination proceeds from left to right until either a delimiter in the Delimiter 
Table specified by DADDR3 is encountered or until the end of the string is encountered. 


If the end of the string is encountered before the delimiting condition is met, examination 
terminates with the last character to be examined. 


If two contiguous delimiters are encountered, the number of characters examined is zero. 


b. If Z=2, the number of characters is the size specified by COPI. 
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3. The characters, thus examined, are moved to the destination field as follows: 


! a. If C=0, the characters are moved in accordance with the rules of the MOVE NUMERIC 
(MVN) S-operator. 


If the number of characters to be moved is zero, the destination field is zero-filled. 


b. If C=1, the characters are moved according to the rules of the MOVE ALPHANUMERIC 
(MVA) S-operator. 


If J=1, the characters are moved right-justified. 


If the number of characters to be moved is zero, the destination field is space-filled. 
4. If the delimiter receiving field is present, the delimiting character(s) are moved to it according 
to the rules of the MOVE ALPHANUMERIC (MVA) S-operator. If the delimiting condition 
is the end of the string, then it is space-filled. 


5. If the count field is present, the number of characters examined is moved to it according to 
the rules of the MOVE NUMERIC (MVN) S-operator. 


6. If the tallying field is present, 1 is added to the contents according to the rules of the Increment 
By One (INC1) S-operator. 


7. If Z=0, Z=2 or the delimiting condition is the end of the string, the pointer field is set to 
point to the character to the right of the last character transferred in step 3. 


If Z=1, the pointer field is set as follows: 


a. If the ALL.FLAG=0 for the matched delimiter, it points to the character to the right of 
the delimiter. 


b. If the ALL.FLAG=1 for the matched delimiter, the string is examined for contiguous oc- 
currences of the delimiter and it points to the right of the last such occurrence. 
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INTER-PROGRAM COMMUNICATION 


IPC DICTIONARY | 


Format: 
IPCD V COP BADDR 


Functions: 


The execution of the IPCD S-OP results in the construction and insertion of an 80-bit system descriptor 
for the COP in the IPC.DICTIONARY at the displacement address specified by V. The base address 
of the IPC.DICTIONARY is adjacent to the program RSN and can be found in RS.IPC.DICTIONAR- 
Y.SPACE as an absolute address. The BADDR contains the address of the first IPCD S-op which ref- 
erences an operand that lies in an overlayable data segment. This address is required by the interpreter 
when checkerboarding has occurred and a necessary data segment does not fit into dynamic memory 
without overlaying another required data segment. 


The Inter-Program Communication (IPC) Module provides a facility to transfer control from one pro- 
gram to another and the ability for both programs to have access to the same data items. Language 
is not a barrier in IPC. The names of the programs to which control is to be passed may or may 
not be known at compile time. Additionally, this module provides the ability to determine the availabil- 
ity of memory for the program to which control is being passed. 


The definition of a ‘run unit’ is critical to the implementation of the CALL/CANCEL mechanism 
described in the ANSI Standard. The beginning-of-job (BOJ) of any program by an execute instruction 
does not establish a run unit. A run unit is established only when an executed program initiates another 
program through the CALL communicate. That called program is now a member of the run unit asso- 
ciated with that program that was originally executed. Likewise, any program called by a program 
within the run unit becomes part of that run unit and remains in that run unit until terminated or 
cancelled (CANCEL). A job cannot be a member of more than one run unit. The following figure 
represents seven programs (A through G) which have been called within a run unit. 


A A was executed 


| wa Current Path 
B 


Previous —» ae 
Path 


D 


—O 
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The connecting links are generated by and represent the last used path, and the link exists until a return 
(EXIT PROGRAM) is accomplished. Once a called program has been exited (D, F, G), it remains sus- 
pended in the current state. The only path that is of interest is the path last traversed. 


The current path is important in order to check the validity of a CALL or CANCEL statement; a 
program may not call or cancel itself or any of its predecessors. The other links are unimportant, as 
any program in the run unit can call or delete other existing programs (with the exceptions previously 
mentioned) or can call new programs. 


If, for example, program E cancels program D, then the run unit consists of all of the following pro- 
grams and appears as: 


Unattached 
Programs 
F,G 


| 
| 
| 


A call to any of these programs results in a transfer of control to the existing state, whereas a call 
to any other program (including D) causes an initial state copy to be invoked before control is transfer- 
red. The termination (by STOP RUN or ABORT) of any program in a run unit results in the removal 
of all programs in that run unit from memory. 


The calling program may specify one or more data items to which the called program has access. The 
shared data may be any 01 or 77 level item (including items whose addresses have been received 
through a CALL) described in the calling program. The data items may be named and defined differ- 
ently in each program. Additionally, storage for the shared data is never allocated in the called pro- 
gram; the address is always passed to the called program. 


The IPC.DICTIONARY is a list of SYSTEM.DESCRIPTORS built by the program to describe the 
parameters to be passed with a CALL. This dictionary is within the space defined by RS.IPC.DICT 
in the RS.NUCLEUS of the calling program. The length of this dictionary is passed in the CALL com- 
municate. The MCP verifies that the number and length of parameters passed match the IPC.PARAM- 
ETER.LIST of the CALLed program. 


The IPC.PARAMETER.LIST is a series of 24-bit fields that contain the length in bits of the 
parameters required for a given program. The original copy is generated by the compiler and resides 
at the end of the code file. The MCP can locate this list through a 24-bit field in the Program 
Parameter Block (the PROG.IPC.PTR contains the relative disk address in the code file of the IPC- 
-PARAMETER.LIST). The number of entries in the list is obtained from a 16-bit field in the PPB 
(PROG.IPC.SIZE). After the program has been successfully called, the IPC.PARAMETER.LIST is ap- 
pended to the RS.NUCLEUS (and the first element contains the number of entries) in order to 
facilitate future calls on this program. 
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After the MCP verifies that the number and length of parameters are correct, it updates this field to 
allow access to the shared data. The interpreter uses this field just as it would use the address of a 
data dictionary, that is, to obtain the absolute address of the IPC.DICTIONARY. 


Figure E-2 illustrates the manner in which data is linked between the calling program and the called 
program. 


} 


CALLING PROGRAM WITH SHARED CALLED PROGRAM 


AND SEGMENTED DATA 
STATIC MEMORY 


RS .tPC,. DICT 
RS .IPC.PARM. LIST 
IPC .PARAM, LIST 


BR BR 


STATIC MEMORY 


DYNAMIC MEMORY 


LR 


RS IPC. DICT .SPACE 


DATA DICTIONARY 


IPC DICTIONARY 


G12343 


Figure E-2. Memory Layout 


Accessing shared data should be almost identical to accessing segmented data. One difference is that 
the reading and writing take place outside the program base-to-limit area and, therefore, the base-limit 
check must be inhibited. This implies that any COP for a parameter must have a flag (SHARED.D- 
ATA.FLAG) which suppresses the base-limit test and indicates that there is a following 10-bit field 
(IPCD.INDEX) which supplies an index into the IPC.DICTIONARY. With the absolute address ob- 
tained from the IPC.DICTIONARY, the interpreter can proceed as if it has an absolute address for 
a normal data item. 
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COBOL74 QUEUE FILES 


Queue files permit message transfer between one or more programs. A queue is established when the 
program opens a queue file. This program may be one of many readers or writers of the queue file. 
Message transfer to and from the queue is handled by the operating system when a WRITE or a READ 
operation is specified for the queue file. Messages are written to the back of the queue and read from 
the front of the queue. Therefore, if one program opens a queue file I/O, there is a good chance that 
no message transfer between two programs will actually occur. Instead, the single program could be 
reading messages that it just wrote. Figure F-1 is a diagram of a unidirectional message transfer with 
two writers and three readers. 


WRITER WRITER 


QUEUE FILE 
OPEN OUTPUT MESSAGES 


OPEN INPUT 
READER READER READER 


Figure F-1. Unidirectional Queue File Message Transfer 


G18655 


When message transfer in two directions is desired, two queue files should be used. This can be seen 
in figure F-2. 


WRITER/READER 


QUEUE FILE A 
MESSAGES 


OPEN INPUT 
OPEN eee 
OUTPUT : 
} | OPEN 
OUTPUT 
OPEN INPUT 
QUEUE FILE B 
READER/WRITER 


MESSAGES 
Figure F-2. Bidirectional Queue File Message Transfer 
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Messages may be written into a queue (space permitting) even though a reader of that queue does not 
exist. The messages are stored until read out of the queue or the queue file is closed by the last pro- 
gram that has the queue file open. The oldest messages are read from the queue first and are then 
removed (FIFO). When the queue file is closed by the last user of the queue file, any unread messages 
are discarded by the operating system. 


In the following program, there is one queue file that is read from and one queue file that is written 
to. This is done for example only, as normal use of queue files is for communication between separate 
programs. The VALUE OF TITLE clause for each of the queue files declared in the program has the 
same value. This is the only statement in the source code that instructs the operating system to use 
the same location in memory (queue) for each of the declared queue files. 


000100 

000200 IDENTIFICATION DIVISION. 

000300 

000400 PROGRAM-ID. QUEUE-ECHO. 
000500 AUTHOR. ORWELL84. 
000600 DATE-WRITTEN. 12/02/83. 
000700 SECURITY. NONE. 
000000 ENVIRONMENT DIVISION. 

000900 

001000 CONFIGURATION SECTION. 

001100 

001200 SOURCE-COMPUTER. B1000. 
001300 SOURCE-COMPUTER. B1000. 
001400 

001500 INPUT-OUTPUT SECTION. 

001600 

001700 FILE-CONTROL. . 
001600 SELECT QUEUE-IN ASSIGN TO QUEUE 
001900 FILE STATUS 13 IN-STAT 

002000 ACTUAL KEY IS Q-IN-KEY 

002100 RESERVE 2 AREAS. 

002200 SELECT QUEUE-OUT ASSIGN TO QUEUE 
002300 FILE STATUS IS OUT-STAT 

002400 ACTUAL KEY 1S Q-OUT-KEY 

002500 RESERVE 2 AREAS. 

002600 


002700 !-O-CONTROL. 
002500 SAME RECORD AREA FOR QUEUE-IN QUEUE-OUT. 


002900 
003000 DATA DIVISION. 

003100 

003200 FILE SECTION. 

003300 

003400 FD QUEUE-IN 

003500 VALUE OF MAXCENSUS IS 2 
003600 VALUE OF MAXSUBFILES IS & 
003700 VALUE OF TITLE IS "ORWELL84" 
003800 Ol QUEUE-REC-IN. 

003900 03 BYE-BYE PIC X(3). 
004000 03 FILLER PIC XG 7) < 
004100 FD QUEUE-OUT 

004200 VALUE OF MAXSUBFILES IS 4& 
004300 VALUE OF TITLE IS "ORWELL84"'. 
004400 Ol QUEUE-REC-OUT PIC X(80). 
004500 
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004600 WORKING-STORAGE SECTION. 


004700 77 Q-IN-KEY Pic 9(8) COMP VALUE 1. 
004800 77 Q-OUT-KEY - PIC 9(8) COMP VALUE O. 
004900 77 FLAG P1C 9 COMP VALUE ZERO. 
005000 88 EOF VALUE 1. 

005100 01 Q-MESS Pic x (80). 
005200 Ol QUT-STAT PIC XX VALUE "00". 
005300 88 Q-FULL VALUE ''95''. 
005400 O1 IN-STAT PIC XX VALUE "00!''” 
005500 B88 Q-EMPTY VALUE "9k", 
005600 PROCEDURE DIVISION. 

005700 

005800 MAIN-DRIVER. 

005900 OPEN INPUT QUEUE-IN. 

006000 OPEN OUTPUT QUEUE-OUT. 

006100 PERFORM ECHO THRU ECHO-EXIT UNTIL 

006200 FLAG > 0. 

006300 CLOSE QUEUE-IN. 

006400 IF FLAG NOT = 2 

006500 CLOSE QUEUE-OUT. 

006600 STOP RUN. 

006700 

006800 ECHO. | 
006900 DISPLAY "ENTER ONE LINE MESSAGE, AND | WILL ECHO IT BACK". 
007000 DISPLAY "TO EXIT PROGRAM, ENTER BYE"! 

007100 ACCEPT Q-MESS. 

007200 MOVE Q-MESS TO QUEUE-REC-OUT 

007300 MOVE Q-IN-KEY TO Q-OUT-KEY. 

007400 WRITE QUEUE-REC-OUT. 

007500 MOVE Q-OUT-KEY TO Q-IN-KEY. 

007600 [F Q-FULL : 

007700 READ QUEUE-IN 

007800 GO TO.ECHO-EXIT. 

007900 DISPLAY QUEUE-REC-OUT. 

008000 WAIT UNTIL READ-OK ON QUEUE-IN (1) 

008100 READ-OK ON QUEUE-IN (2) 

008200 READ-OK ON QUEUE-IN (3) 

008300 READ-OK ON QUEUE-IN (4) 

008400 GIVING Q-IN-KEY. | 

008500 READ QUEUE-IN AT END 

008600 MOVE 1 TO FLAG. 

008700 |IF BYE-BYE = "BYE! 

008800 DISPLAY "BYE-BYE"! 

008900 MOVE 2 TO FLAG 

009000 CLOSE QUEUE-OUT 

009100 GO TO ECHO-EXIT. 

009200 ECHO-EXIT. 

009300 EXIT. 


009400 END-OF~-JOB. 
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COBOL74 REMOTE FILES 


Each COBOL74 program can declare a maximum of one remote file. A remote file, as declared in 
a COBOL74 program, is a Burroughs extension to ANSI 74 COBOL. A remote file allows the 
COBOL74 program a high degree of control for input, output or I/O witha set of data communication 
devices. 


With COBOL74 remote files, all message transfer and control of the remote files is handled by the 
network controller in conjunction with a Message Control System (MCS), if present. The presence of 
an MCS allows dynamic, run-time modification of the station list in the network controller, such as 
transforming the second or subsequent open request to an attach of the station to an existing remote 
file instead of an open of a new remote file. Without an MCS, there can be no flexibility of the station 
list and attachment of a remote file to a station is rigidly dependent on the file statement as pre-defined 
in the network controller. 


The controlling MCS is responsible for approving or denying the second and any subsequent open of 
the same remote file name. The approval or denial of the open is determined by a variety of factors, 
such as authentication of the station list as defined in the network controller. 


If there is no MCS, the second and any subsequent open of the same remote file name results in a 
denial of the open from the network controller, with a message indicating the file is locked. 


‘In figure F-3, program A opens the remote file named XYZ, and the network controller generated by 
the the Network Definition Language (NDL) compiler assigns remote file number 1 to that file, which 
is the data communication system's internal method of identification. Program B opens the remote 
file named XYZ, and the network controller assigns remote file number 2 (or the next lowest available 
file number) to that file. Thus, it is possible (only under control of an MCS) to run multiple copies 
of the same program from different stations, or declare the same remote file name in different pro- 
grams, with a guarantee from the system that messages to and from individual programs will be cor- 
rectly directed to the appropriate program. This is handled by assigning a unique remote file number 
to each remote file opened even if the remote file names are the same. (If program A or program 
B is an MCS, the above sequence of events may be different.) 
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PROGRAM 
A 
(MIX #15) 


PROGRAM 
B 
(MIX #18) 


PROGRAM | 
C 
(MIX #20) 


REMOTE FILE 
NAME = FGH 


REMOTE FILE 
NAME = XYZ 


REMOTE FILE 
NAME = XYZ 


NUMBER = 2 


NUMBER = NUMBER = 3 


MESSAGE CONTROL. SYSTEM (MCS) 


REMOTE FILE 
MCSQUEUE 


(OPTIONAL) 


NETWORK CONTROLLER 
DEFINED BY THE NETWORK DEFINITION LANGUAGE (NDLY COMPILER 


G18657 
Figure F-3. COBOL74 Remote Files 


Enhancements to the Mark 11.0 COBOL74 compiler expand the capabilities of remote file usage. These 
include the abilities to selectively access multiple stations of a remote file and to construct variable 
length records for a remote file. 


Multiple Stations of a Remote File 


A COBOL74 program can open a remote file with more than one station if that configuration has 
been defined in the station list of the network controller. More than one station can also be established 
for a remote file of a COBOL74 program when running under an MCS by means of the dynamic at- 
tachment mechanism. The MAXSTATIONS file attribute must be declared greater than one in the 
COBOL74 program (see programming example below) or the NUMBER.STATIONS file attribute must 
be modified to the purver of stations expected. 


Example: 

MODIFY <program name> FILE <file name> NUMBER.STATIONS = <integer> 
In COBOL'%4, a program may initiate communication to a specific terminal, which was attached in 
its remote file open, and that terminal remains assigned to the program for the duration of the remote 


file open. This is done by association of a Relative Station Number (RSN) within a station list for 
that remote file, as defined in the network controller. 
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The LASTSTATION file attribute indicates the relative station number of the source of a message fol- 
lowing a READ operation from a remote file. By changing the value of the LASTSTATION attribute 
prior to a WRITE operation to a remote file, the message can be directed to another station. Use of 
the LASTSTATION attribute is optional. It is only required if the program needs to know what station 
was accessed on the last READ operation, or if the program wants to direct the next WRITE operation 
to a station other than the one that was the source of the previous READ operation. The LASTSTA- 
TION attribute can be read or changed when the file is open. 


The following example shows how the LASTSTATION and MAXSTATIONS file attributes can be 
used in a program using remote files. When the number of stations has been declared to be greater 
than 1 and the program has been entered into the JOBS file of the SMCS program, two or more users 
can sign on to this program and receive the messages from each other. 


000100 
000200 
000300 
olexey sere) 
000500 
000600 
000700 
0006800 
000900 
001000 
001100 
001200 
007300 
001400 
001500 
001600 
001700 
001600 
001900 
002000 
002100 
002200 
002300 
002400 
002500 
002600 
002700 
002800 
002900 
003000 
003100 
003200 
003300 
003400 
003500 
003600 
003700 
00 3600 
003900 
004000 
004100 
004200 
004300 
004400 
004500 
004600 
004700 
004800 
004900 
005000 
005100 
005200 
005300 
005400 
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IDENTIFICATION DIVISION. 
PROGRAM-ID. ; 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. 
OBJECT-COMPUTER. 
INPUT-OUTPUT SECTION. 


FILE-CONTROL. 
SELECT  RMTE 


DATA DIVISION. 


MULTI-STATIONS. 


B1000. 
B1000. 


ASSIGN TO REMOTE 
RESERVE 3 AREAS. 


FILE SECTION. 
FD RMTE 
VALUE OF MAXSTATIONS !S 2 
RECORD CONTAINS 1950 CHARACTERS. 
O1 RMTE-RECORD PIC X (1950). 
WORKING-STORAGE SECTION. 
O01 SCREEN-OQUTPUT. 
05 TOP-LINE PIC 9(10) COMP 
VALUE @0CO0000000@. 
O05 SCREEN PIC X(1920). 
05 BOTTOM-LINE PIC 9(12) COMP 


VALUE @27E600000003@. 


O1 ENTRY-SCREEN-OUT. 
0 ES-FIRST-LINE. 
10 FILLER 
LO. sE ST IOhee 
VALUE "REMOTE FILE 
10:  FILEER 
O5 FILLER 
O05 ES-NAME-LINE. 
10 FILLER 
10) NAME-FILL 
VALUE "ENTER YOUR 
10 LEFT-DELIMITER 
10 FILLER 
10 RIGHT-DELIMITER 
10 FILLER 
O5 FILLER 
O05 ES-MESSAGE-LINE. 
JO: CPLLEER 
VALUE "MESSAGE '', 
10 LEFT-DELIMITER 
10 FILLER 
10 RIGHT-DELIMITER 
O05 FILLER 
QO1 INPUT-SCREEN. 
05 YOUR-NAME 
05 YOUR-MESSAGE 
O1 SECOND-SCREEN-OUT. 


PIC X(31) VALUE SPACES. 
PIC X(19) 

EXAMPLE". 

PIC X(30) VALUE SPACES. 
PIC X(160) VALUE SPACES. 
PIC X(20) VALUE SPACES. 
PIC X(16) 

NAME ''. 

PIC 9(02) COMP VALUE @IF@. 
PIC X(20) VALUE SPACES. 
PIC 9(02) COMP VALUE @I1E@. 
PIC X(22) VALUE SPACES. 
PiC X(80) VALUE SPACES. 
Pic xX (8) 

PIC 9(02) COMP VALUE @IFQ@. 
PIC X(70) VALUE SPACES. 
PIC 9(02) COMP VALUE @1E@. 
PIC X(1440) VALUE SPACES. 
PIC X (20) 

PiC X (70) 
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005500 


005600: 


005700 
005600 
005900 
006000 
006100 
006200 
006300 
006400 
006500 
006600 
006700 
006800 
006900 
007000 


. 007100 


007200 
007300 
007400 
007500 
007600 
007700 
0075600 
007900 
006000 
008100 
008200 
008300 
008400 
008500 
008600 
008700 
008800 


01 


008900 
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O05 SS-FIRST-LINE. 
10 FILLER 
10 SS-TITLE 
VALUE "REMOTE FILE 
10 FILLER 
O45: FLCLER 
O5 FILLER 
VALUE ''WELCOME TO THE W 
O5 NAME-OUT1 . 
O5 FILLER 
05 FILLER 
VALUE "I WILL NOW SEND 
O5 FILLER 
05 FILLER 
VALUE '"'GOOD-BYE ''. 
O05 NAME-OUT2 
O05 = FILLER 


LAST-SCREEN-OUT. 
O05 LS-FIRST-LINE. 
10 FILLER 
VO: LS-T PELE 
VALUE ''REMOTE FILE 
10 FILLER 
05 FILLER 
O5 FILLER 
VALUE "THIS MESSAGE IS 
O5 NAME-OUT3 
05 FILLER 
O5 SEND-MESSAGE 
O05 FILLER 
O5 FILLER 
VALUE "GOOD-BYE "'. 
O05 FILLER 


PIC X(31) VALUE SPACES. 

PIC X(19) 

EXAMPLE". 

PIC X(30) VALUE SPACES. 

PIC X(160) VALUE SPACES. 

PIC X (46) 
ORLD OF COBOL74 REMOTE FILES, ''. 
PIC X(20). 

PIC X(94) VALUE SPACES. 

PIC xX (48) 

YOUR MESSAGE TO ANOTHER STATION." 
PIC X(132) VALUE SPACES. 

PIC X (9) 

PIC X(20). 

PIC X(1311) VALUE SPACES. 
PIC X(31) VALUE SPACES. 

PIC X(19) 

EXAMPLE". 

PIC X(30) VALUE SPACES. 

PIC X(172) VALUE SPACES. 

PIC X(21) 

FROM ''. 

PIC X(20). 

PIC X(112) VALUE SPACES. 

‘PIC X(7O). 

PIC X(120) VALUE SPACES. 

Pic X(9) . 

PIC X(1316) VALUE SPACES. 
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009000 PROCEDURE DIVISION. 


009100 

009200 OPEN- FILE. 

009300 OPEN 1-0 RMTE. 
009400 


009500 READ-AND-WRITE-DEFAULT. 
OO9600%%%% THE DEFAULT FOR THE RELATIVE STATION NUMBER 1S. ]oeseas 


009 J00Kkx x THIS MESSAGE GOES TO STATION WITH RSN=1. WK 
009500 MOVE ENTRY-SCREEN-OUT TO SCREEN. 

009900 WRITE RMTE-RECORD FROM SCREEN-OUTPUT. 

OlO000%*x*e*e THIS READ ACCEPTS THE FIRST MESSAGE SENT TO THE xx 
010 100 xxx REMOTE FILE FROM ANY STATION ATTACHED TO IT. xxx 
010200 READ RMTE INTO INPUT-SCREEN AT END 

010300 GO TO CLOSE-FILE. 

010400 WRITE-TO-LAST-READ. 

O10500%xee THIS WRITE 1S DIRECTED TO THE RELATIVE STATION = x2%x 
010600 xxx NUMBER OF THE SOURCE OF THE LAST READ. deredere 
010700 MOVE YOUR-~NAME TO NAME-OUTI1, NAME-OUT2, NAME-OUT3. 
010500 MOVE YOUR-MESSAGE TO SEND-MESSAGE. 

010900 MOVE SECOND-SCREEN-OUT TO SCREEN. 

011000 WRITE RMTE-RECORD FROM Peneene OUTPUT. 

011100 WAIT 6. 

011200 WRITE-TO-DIFFERENT-STATION. 

011300%%%% THIS WRITE IS DIRECTED TO A DIFFERENT STATION —— xsexex 
011400 KH BY CHANGING THE VALUE OF LASTSTATION. Heder 
011500 IF ATTRIBUTE LASTSTATION OF RMTE = 1. 

011600 CHANGE ATTRIBUTE LASTSTATION OF RMTE TO 2. 

011700 IF ATTRIBUTE LASTSTATION OF RMTE = 2 

0113900 CHANGE ATTRIBUTE LASTSTATION OF RMTE TO 1. 

011900 MOVE LAST-SCREEN-OUT TO SCREEN. 

012000 WRITE RMTE-RECORD FROM SCREEN-OUTPUT. 

012100 CLOSE-FILE. 

012200 CLOSE RMTE. 

012300 STOP RUN. 

012400 END-OF-JOB. 
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Variable Length Records 


Variable length records for a remote file are declared by the use of the RECORD CONTAINS and 
the RECORDS CONTAINS...DEPENDING ON phrases in the FD statement for the remote file in 
the source code. Run-time code is generated by the compiler to handle the variable length records. 
Other than specifying one of the above phrases, the programmer need not be concerned with the pro- 
cessing of the variable length records except as noted in the three examples below. 


Example 1: 


000100 iDENTIFICATION DIVISION. 

000200 PROGRAM-ID. VARI-METHOD]. 
000300 ENVIRONMENT DIVISION. 

000400 

000500 CONFIGURATION SECTION. 

000600 

000700 SOURCE-COMPUTER. B1000. 

000600 OBJECT-COMPUTER. B1000. 

000900 

001000 INPUT-OUTPUT SECTION. 

001100 

001200 FILE-CONTROL. 

001300 SELECT. RMTE ASSIGN TO REMOTE. 
001400 

001500 DATA DIVISION. 

001600 

001700 FILE SECTION. 

001600 FD RMTE 


001900 RECORD CONTAINS 125 TO 1940 CHARACTERS. 

002000 

002100 01 SHORT-RECORD PIC X(125). 

002200 01 LONG-RECORD PIC X(1940). 

002300 

002400 WORKING-STORAGE SECTION. 

002500 

002600 01 REMOTE-MESSAGE. 

002700 O05 SPACING-AREA PIC X(115) VALUE SPACES. 
002800 ~~ 05 MESSAGE-AREA PiC X(1825) VALUE SPACES. 
002900 

003000 PROCEDURE DIVISION. 

003100 ; 
003200 OPEN-REMOTE.. 

003300 OPEN I-O RMTE. 


003400 WRITE-SHORT-RECORD. 
003500%%% ONLY THE FIRST 125 CHARACTERS ARE WRITTEN TO FILE RMTE. *%% 


003600 MOVE "HELLO USER, GO AWAY. | DO NOT LIKE YOU. "' 

003700 TO MESSAGE-AREA. 

003600 WRITE SHORT-RECORD FROM REMOTE-MESSAGE. 

003900 MOVE SPACES TO MESSAGE-AREA. 

004000 WAIT 4. 

004100 WRITE-LONG-RECORD. 

004 200%%% UP TO 1940 CHARACTERS ARE WRITTEN TO REMOTE FILE RMTE. *%% 
004300 MOVE "HELLO USER. WELCOME TO THE WORLD OF VARIABLE 
004400- " LENGTH REMOTE FILE RECORDS. WE ARE VERY HAPPY YOU ARE 
004500- "HERE.'' TO MESSAGE-AREA. 

004600 WRITE LONG-RECORD FROM REMOTE-MESSAGE. 

004700 WAIT 4. 

004800 CLOSE-FILE. 

004900 CLOSE RMTE. 

005000 STOP RUN. 


005100 END-OF-JOB. 
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Example 2: 
000100 IDENTIFICATION DIVISION. 
000200 PROGRAM-!D. VARI-METHOD2. 
000300 ENVIRONMENT DIVISION. 
000400 
000500 CONFIGURATION SECTION. 
000600 
000700 SOURCE-COMPUTER. B1000. 
000800 OBJECT-COMPUTER. B1000. 
000900 
001000 INPUT-OUTPUT SECTION. 
001100 
001200 FILE-CONTROL. 
001300 SELECT RMTE ASSIGN TO REMOTE. 
001400 
001500 DATA DIVISION. 
001600 
001700 FILE SECTION. 
001800 
001900 FD RMTE 
002000 RECORD CONTAINS & TO 1944 CHARACTERS 
002100 DEPENDING ON LENGTH-IN-BYTES. 
002200 
002300 0] DEPENDING-RECORD. 
002400 05 LENGTH-IN-BYTES PIC 9(4). 
002500 05 ACTUAL-RECORD-AREA PIC X (1940) 
002600 
002700 WORKING-STORAGE SECTION. 
002800 01 MESSAGE-IN. 
002900 05 HELLO PIC X(6). 
003000 O05 MESSAGE-AREA. 
003100 10 USER-CODE Pre Xi) 
003200 10 FILLER PIC X VALUE SPACES. 
003300 10 REST-OF-MESSAGE © PIC X(1932). 
003400 01 MESSAGE-OUT. 
003500 05 GOOD-MORNING Pic X(14) 
003600 VALUE "GOOD MORNING, ". 
003700 05 USER-NAME PIC X(10). 
003800 05 INSTRUCT PIC X (36) 
003900 VALUE "'. CLEAR HOME AND ENTER ANY MESSAGE.". 
004000 O05 FILLER PIC X(1880) VALUE SPACES. 
004100 
004200 PROCEDURE DIVISION. 
004300 OPEN-REMOTE. 
004400 OPEN |-O RMTE. 
004500 READ-AND-WRITE. 
OOL600%* A USER KEYS IN "HELLO '! THEN HIS USER CODE AND PASSWORD TO 
004700%% GET ON THE SYSTEM. 
004800 WAIT UNTIL READ-OK ON RMTE. 
004900 READ RMTE AT END GO TO CLOSE-FILE. 
005000 MOVE ACTUAL-RECORD-AREA TO MESSAGE-IN. 
005100 MOVE SPACES TO ACTUAL-RECORD-AREA. 
005200 MOVE 1940 TO LENGTH-IN-BYTES. 
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WRITE DEPENDING-RECORD. 

MOVE USER-CODE TO USER-NAME. 

MOVE MESSAGE-OUT TO ACTUAL-RECORD-AREA. 
MOVE 60 TO LENGTH-IN-BYTES. 

WRITE DEPENDING-RECORD. 

WAIT UNTIL READ-OK ON RMTE. 


OO5900*ENTER ANY MESSAGE AT THE REMOTE TERMINAL AND TRANSMIT** 


006000 
006100 
006200 
006300 
006400 
006500 
006600 
006700 


READ RMTE AT END GO TO CLOSE-FILE. 

MOVE SPACES TO MESSAGE-IN. 

MOVE LENGTH-IN-BYTES TO USER-CODE. 

MOVE "CHARACTERS = THE LENGTH OF YOUR MESSAGE" 
TO REST-OF-MESSAGE. 

MOVE MESSAGE-AREA TO ACTUAL~RECORD-AREA. 

MOVE 47 TO LENGTH-IN-BYTES. 

WRITE DEPENDING-RECORD. 


006800 CLOSE-FILE. 


006900 
007000 


CLOSE RMTE. 
STOP RUN. 


007100 END-OF-JOB. 


Example 3: 
000100 IDENTIFICATION DIVISION. 
000200 PROGRAM-!D. VARI-METHOD3. 
000300 ENVIRONMENT DIVISION. 
000400 
000500 CONFIGURATION SECTION. 
000600 
000700 SOURCE-COMPUTER. B1000. 
000800 OBJECT-COMPUTER. B1000. 
000900 
001000 INPUT-OUTPUT SECTION. 
001100 
001200 FILE-CONTROL. 
001300 SELECT RMTE ASSIGN TO REMOTE. 
001400 
001500 DATA DIVISION. 
001600. 
001700 FILE SECTION. 
001800 . 
001900 FD RMTE 
002000 RECORD CONTAINS 280 TO 680 CHARACTERS. 
002100 
002200 01 OCCURS-RECORD. | 
002300 O5 FILLER PIC X(120). 
002400 05 VARIABLE-PART. 
002500 10 FIRST-PART PIC xX (80). 
002600 10 SECOND-PART PIC x (80) 
002700 OCCURS 1 TO 6 TIMES DEPENDING ON Z. 
002800 
002900 WORKING-STORAGE SECTION. 
003000 77 2Z PIC 9 COMP VALUE 1. 
003100 O01 ENTREES. 
003200 05 FILLER PIC X(15) VALUE "ONION SOUP i 
003300 | 05 FILLER PIC X(65) VALUE SPACES. 
003400 05 FILLER PIC X(15) VALUE "FRUIT SALAD on 
003500 O5 FILLER PIC X(65) VALUE SPACES. 
003600 05 FILLER PIC X(15) VALUE "HAMBURGER un 
003700 05 FILLER PIC X(65) VALUE SPACES. 
003800 05 FILLER PIC X(15) VALUE "FRENCH FRIES ''. 
003900 05 FILLER PIC xX (65) VALUE. SPACES. 
004000 O5 FILLER PIC X(15) VALUE "ICED TEA iN, 
004100 05 FILLER PIC X(65) VALUE SPACES. 
004200 O5 FILLER PIC X(15) VALUE "ICE CREAM us 
004300 05 FILLER PIC X(65) VALUE SPACES. : 
004400 01 ENTREE-TABLE REDEFINES ENTREES. 
004500 O5 ENTREE PIC X(80) OCCURS 6. 
004600 
004700 PROCEDURE DIVISION. 
004800 OPEN-REMOTE. 
004900 OPEN |-O RMTE. 
005000 MOVE SPACES TO OCCURS-RECORD. 
005100 MOVE '' LUNCH MENU: '' TO FIRST-PART. 
005200 PERFORM WRITE-REMOTE VARYING Z FROM 1 BY 1 UNTIL Z > 6. 
005300 CLOSE RMTE. 
005400 STOP RUN. 
rae WRITE-REMOTE. 
MOVE ENTREE (Z) TO SECOND-PART (Z). 
005700 WRITE OCCURS-RECORD. aa 
005800 END-OF-JOB. 
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COBOL74 CD (COMMUNICATION DESCRIPTION) FILES 


In addition to the use of queue files and remote files, another method exists in the COBOL74 language 
of implementing communication between a user program and remote terminals. This is described in 
the COMMUNICATION SECTION and refers to a CD (Communication Description) file. The pro- 
grammer specifies a symbolic queue file name, and, by means of the associated CD statement 
parameters, messages are passed to and from an actual physical file. The actual file is identified by 
the symbolic queue name. The symbolic queue name must be the name of a remote file as defined 
in the network controller if executing under the SMCS program. When the COBOL74 program does 
the first RECEIVE or ENABLE INPUT operation, the operating system looks for a COBOL74 queue 
file already open, with the same name as the symbolic queue name specified in the appropriate CD 
of the COBOL74 program. If no such queue file is open, the operating system opens the file, with 
the name as specified in the symbolic queue name. If such a queue file is already open, messages to 
and from this program are directed to the queue file of the same name. Figure F-4 is a diagram of 
the concept of COBOL74 communication description (CD) files. 


For more information and a sample program using COBOL74 CD files, refer to COMMUNICATION 
SECTION in section 6 of this manual. 


PROGRAM A PROGRAM B 


SYMBOLIC QUEUE 


NAME = XYZ 
NUMBER = 1 


MESSAGE CONTROL SYSTEM (MCS) 


REMOTE FILE ; (OPTIONAL) 
MCSQUEUE 


NETWORK CONTROLLER 
DEFINED BY THE NETWORK DEFINITION LANGUAGE (NDL) COMPILER 


CE) Ce 
i: ch, a 


G18658 


Figure F-4. COBOL74 Communication Description (CD) Files 
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PORT FILES 


Port files permit communication between two processes across a Burroughs Network Architecture 
(BNA) network. The communication path must be established between both processes before any mes- 
sages may be read or written. A port file may contain subfiles that enable a single process to communi- 
cate with several other processes (one per subfile). For bidirectional message traffic, a single subfile 
is used. The BNA network keeps track of the two paths. 


Port subfiles may communicate across machine boundaries, enabling a program to communicate with 
other Burroughs host computers. Figure F-5 is a diagram of a possible port/subport communication 
path. 


USER PROCESS 


SUBPORT 2 


SUBPORT 1 


USER PROCESS 
BURROUGHS 


NETWORK 
ARCHITECTURE 


SUBPORT 


SUBPORT 


SUBPORT 1 


SUBPORT 2 


USER PROCESS 


USER PROCESS 


G18659 


Figure F-5. Port/Subport Communication Path across BNA Network 
For more information on PORT files, how to use them, and the file attributes to be used with them, 


refer to sections 5, 7, and 8 in this manual and the B 1000 Systems Burroughs Network Architecture 
(BNA) Installation and Operation Manual. 
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INTER-PROGRAM COMMUNICATION (IPC) 


The Inter-Program Communication (IPC) module allows communication and data sharing from one 
program to one or more other programs within the same run unit. This concept can be referenced in 
section 6 under LINKAGE SECTION in this manual. 


ROLE OF THE MESSAGE CONTROL SYSTEM (MCS) 


Any program that opens a remote file with the HEADERS option is a Message Control System (MCS) 
and can control the stations associated with that file as defined in the network controller. In addition, 
an MCS can attach and detach unassigned stations from the station list. When there is no MCS pres- 
ent, message transfer and control of the data communications files is handled by the operating system 
with strict adherence to the remote file station list declarations in the network controller. Two of the 
more commonly used Burroughs MCS products are briefly discussed below along with the 
. COBOL74MCS program. 


Supervisory Message Control System (SMCS) 


When multiple COBOL74 programs are executed (EX) under the SMCS program, they can open remote 
files with the same remote file name. Individual remote files are created with the same name, unique 
remote file numbers and the file attribute NUMBER.STATIONS equal to 1. When multiple users sign 
on (ON <program name>) and the NUMBER.STATIONS is greater than 1, then the SMCS program 
attempts to attach subsequent stations to the original remote file within the limits of the network con- 
troller. Refer to the B 1000 Systems SMCS Installation, Operation and Functional Description Manual 
for additional information. 


Likewise, under the SMCS program, multiple COBOL74 programs can reference the same CD queue 
file name, but in this case, the programs physically share the same CD queue file (both name and num- 
ber are the same). The SMCS program approves the second and any subsequent attachment of 
COBOL74 messages to an already established queue file or CD file. 


Generalized Message Control System (GEMCOS) 


Under the GEMCOS program (as under the SMCS program), multiple COBOL74 programs can open 
the same remote file name, creating individual remote files with the same name but unique numbers. 
The GEMCOS program can attach stations to an existing open remote file or deny the second or any 
subsequent open of the same remote file name. 


GEMCOS allows the COBOL74 CD queue file sharing function; however, the receiver of any response 


is unpredictable since GEMCOS cannot control the distribution of messages from the queue to the re- 
mote files. If control is necessary, remote files should be used instead of CD files. 


COBOL74MCS 


The COBOL74MCS supports all capabilities of the ANSI 74 COBOL data communications module. 
This MCS program was designed to be run under the control of the SMCS program. 
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APPENDIX G 
COBOL74 ISAM FILE CONCEPTS 


INTRODUCTION 


The Indexed I-O Module provides the capability to access records of a mass storage file in either a 
random or sequential manner. Each record in an indexed file is uniquely identified by the value of 
one primary key within that record. Additionally, each record can contain up to 98 alternate keys, for 
which duplicates are allowed. The alternate keys allow versatility in the access path for the indexed 
file. The B 1000 COBOL74 compiler utilizes all features of the ANSI 74 syntax for the Indexed I-O 
module, including, but not limited to deletion of records, duplicates on the alternate keys, input-output 
error monitoring through the FILE STATUS clause and the USE procedure, and versatility in access 
method and/or path. eS 


Enhancements to Burroughs B 1000 COBOL74 include 1) the AUDITED file attribute, which insures 
that each update to the file is completed and written to disk before the user program continues process- 
ing, 2) file handling procedures, which are resident within the operating system, as opposed to being 
compiled into the codefile of each program, 3) file management procedures that automatically recycle 
record slots, making it unnecessary to reorganize the file after deletions and additions, and 4) block 
control information (BCI) located within each block of the data file that enables re-creation of a cor- 
rupted ISAM file or creation of a new ISAM file with the added, deleted, or altered keys from an 
existing ISAM file. . 


A COBOL74 Indexed file consists of a minimum of three files (maximum of 101 files) referred to as 
the associated files in this appendix. The associated files can only be created or accessed as an Index 
Sequential Access Method (ISAM) file while all of the associated files are resident on disk. 


ORGANIZATION 


An ISAM file consists of a minimum of three separate but related files. For each Indexed file, there 
exists one global file, one data file, and one primary index file. If the file includes alternate keys (98 
possible), there is one index file for each of the alternate keys as well. Figure G-1 demonstrates the 
relationship of the associated ISAM file structures. 


GLOBAL FILE 


ALTERNATE | 
DA F j 
ie INDEX FILES j ; 


Figure G-1. Relationship of the ISAM File Structures 


PRIMARY 
INDEX FILE 


G18660 
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Global File Concepts 


Every ISAM file has one global file with a file type of IS.G. This file, sometimes referred to as the 
cluster file, is created along with the data file, primary index file and alternate index files (if present), 
when a file with indexed organization is opened output. The external file identifier of the global file 
is also the name of the associated files collectively referred to "the ISAM file.” Physical attributes of 
the global file are set by the operating system and cannot be modified in any way. The global file 
contains all the information needed by the operating system for management of the ISAM file. It must 
be present on disk whenever the ISAM file is opened. If corruption of the global file occurs, the ISAM 
file must be rebuilt as described in this appendix. 


Some of the information fields in the global file are listed below: 


Name and location of all subfiles 

Number of users 

Number of users with file open for updates 
Structure information 

Version number 

Disk file header extension 

File audited or not audited 


The disk file header extension keeps track of the space available in the data file where new records 
can be added. This results in automatic recycling of record slots when records are deleted. 


Data File Concepts 


Every ISAM file has one file containing the data records. IS.D is the B file type for this file. It tells 
the operating system that the physical structure of the file is exactly like any other relative file with 
the exception that this file is one of the associated files of an ISAM file as well. 


Physical Attributes 

An ISAM file may be created using operating system default values. Alternatively, file attribute values 
describing physical size and maximum population of the ISAM data file may be declared by the user 
in the file description (FD) statement of the program creating the ISAM file. These values are also 
used by the operating system to establish physical sizes of the index files when created. Size-related 


file attributes include maximum number of areas, record size, records per block, blocks per area, and 
area length. . 


The relationship of the size-related attributes of a relative file or an ISAM data file is given in the 
following formula: 


Formula 1: 
(blocksize) x (blocks per area) = (area length) 


For an ISAM data file or a relative file, block control information (BCI), must be included when calcu- 
lating blocksize as shown. below: 


Formula 2: 


(blocksize) =. (record size * records per block) + BCI 
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When an ISAM file is created, or records are added to the file, the operating system opens new areas 
for the data and index files as required. When the file is first created, the default value of 25 maximum 
areas is used by the operating system unless overridden by the VALUE OF AREAS clause in the FD 
statement of the program. The value of maximum number of areas of the ISAM data file is the only 
size-related file attribute that can be changed after the file has been created without re-creating the 
ISAM file and changing the programs that access that file. The maximum number of areas may in- 
crease to the operating system maximum of 105 when the FLEXIBLE attribute is set to TRUE within 
the program. 


NOTE 
Use of the FLEXIBLE attribute to increase the maximum number of areas 
for an existing ISAM file can cause one or more of the subfiles to exceed 
their allocated space before the data file reaches the limit of 105 areas. In 
this case, the file must be re-created with a user program. 


The value of record size may be specified by the RECORD CONTAINS integer CHARACTERS clause 
of the FD statement. If this clause is not included, the operating system obtains the record size from 
the largest record description entry for the file. The minimum record size for an ISAM data record 
is 4 bytes. 


The default value for records per block is 1 unless overridden by the BLOCK CONTAINS integer 
RECORDS clause of the FD statement in the source program. Unlike other file types in the B 1000 
system, blocking an ISAM file with the default value will not insure that as each record is updated 
it will be written to disk. When the AUDITED file attribute is set to TRUE for the ISAM file, each 
‘update is written to disk before control returns to the user program. 


The operating system default value for blocks per area is 500, but this can be overridden by the user 
in two separate ways. The value of blocks per area cannot be explicitly specified within the B 1000 
Systems COBOL74 syntax, but it can be implicitly specified by including the VALUE OF AREA- 
LENGTH clause in the FD statement as seen in the above formulas. The desired number of blocks 
per area may also be controlled by the user by modifying the BLOCKS.PER.AREA file attribute of the 
code file for the program creating the ISAM file. 


Example: | 
MODIFY <program name> FILE <file name> BLOCKS.PER.AREA = 100 


This must be done prior to the creation of the ISAM file. If the VALUE OF AREALENGTH clause 
has not been specified and BLOCKS.PER.AREA has not been modified, the operating system uses the 
default value for the ISAM data file. 


The largest value that-can be specified for AREALENGTH is 2097151. However, as with the previously 
listed size-related file attributes, declaring a VALUE OF AREALENGTH is optional. If the value of 
blocksize exceeds 4194 bytes, user specification of a VALUE OF AREALENGTH or modification of 
BLOCKS.PER.AREA to a value less than 500 is required. This can be seen by substituting 4194 
for the blocksize and the default of 500 blocks per area into formula 1: 


(4194) « 500 = 2097000 


An understanding of block control information (BCI) is necessary when calculating blocksize for an 
ISAM data file and also when choosing optimum values for record size and records per block. 
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Block Control Information (BCI) 


Data storage on disk media includes the concepts of bits, bytes and segments. A byte consists of eight 
bits and every 180 bytes on disk represents a new segment. A bit can be on (1) or off (0). A digit 
of information consists of four bits and can be represented by the bit pattern (example: 1011) or by 
the hexadecimal values, 0-9 and A-F. The hexadecimal representation of a byte with all bits on is 
@FF@. The (@) character delimits a hexadecimal value. A RECORD is defined as the logical unit 
of data made available to a program in an INPUT or OUTPUT command. A BLOCK is the physical | 
unit of data that is read from disk (INPUT) or written to disk (QUTPUT). A SEGMENT is the smal- 
lest unit of disk that can be located and read from or written to. All space from the end of the block 
to the end of the segment or segment multiple is wasted. A knowledge of these concepts is assumed 
in the following discussion. 


The structure of an ISAM data file is exactly the same as that of any other B relative file. In relative 
file organization, each record is uniquely identified by an integer value greater than zero. This integer 
specifies the logical ordinal position of the record in the file. As each record is added to a relative 
file, a “presence” bit is turned on (a value of 1 is on, 0 is off). Block control information (BCI) consists 
of one presence bit for each record in the block plus up to seven extra bits to force the BCI to end 
on a byte boundary. An ISAM file has the added capability of record deletion. When a record is de- 
leted, the presence bit for that record is turned off and information in the disk file header extension 
is updated to reflect a free record slot. 


Each physical block of an ISAM data file (or relative file) starts on a segment boundary with the block 
control information. All-disk space from the end of the physical block to the start of the next block 
(at the segment boundary) is allocated to the file but is wasted. The BCI for all files with blocking 
factors of 1 through 8 records per block is the same; one byte. In each case, however, only the presence 
bits for the block are significant. Unused bits in the BCI of an ISAM data file are not initialized. 
Similarly, the BCI of an ISAM file blocked 10 records per block consists of two bytes; 10 bits 
significant and 6 bits insignificant as shown. Table G-1 shows the BCI statistics for several sample 
blocks. ; 


Table G-1. BCI Statistics For Several Blocking Factors 


Records 
per BCI Records Bit 
Block (bytes) Deleted Pattern 
2 1 none {11xxxxxx} 
4 1 #2 {1011xxxx} 
8 1 none {11111111} 
10 Z #5, #8 {1111011011xxxxxx} 
13 2 #13 {1111111111110xxx} 


x = unused bits of the BCI byte 
An ISAM data file may be opened independently as a relative file. At this time the user need not be 


concerned with eliminating invalid records. The operating system handles this by using the BCI and 
the records per block value in the disk file header. 
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Efficient Blocking of the Data File 
Careful calculation of ISAM blocksize from formula 2 above and a knowledge of disk segmentation 


may result in optimum disk utilization. Table G-2 lists the percent of utilization of disk space for 
various record sizes and blocking factors for an ISAM file. 


Table G-2. ISAM Disk Utilization 


Record size Records BCI Blocksize Wasted Percent 


(bytes) per block (bytes) (bytes) (bytes) Utilization 
a2 255 32 8192 808 91.00. 
89 1 90 90 50.00 
89 Z 1 179 1 99.44 
90 1 181 179 50.27 
90 9 2 812 88 90.22 
440 16 2 7042 158 97.80 
440 18 3 7923 177 97.81 


The maximum blocksize allowable for an ISAM data file is 8192 bytes. 
Index File Concepts 


For every ISAM file there is.one primary index file and one index file for each of the alternate keys. 
There can be up to 98 alternate index files. All keys are alphanumeric and may overlap, but the left- 
most character of overlapping keys may not start in the same location. Primary keys are unique, 
whereas alternate keys may have duplicates if declared that way when file is originally created. Dupli- 


cate keys are returned on INPUT in their order of introduction to the file. | 


An index file consists of coarse tables and/or fine tables, collectively referred to as index tables. The 
index table entries each contain a key and an address. For a fine table, the address points to the loca- 
tion of the data record in the ISAM data file for that key. Fine tables are linked in one direction for 
efficient sequential access to the data records. Coarse tables exist when there is more than one fine 
table. An address entry in the coarse table points to a location in a fine table. The “coarsest” coarse 
table is called a root table. This exists when there is more than one coarse table. Figure G-2 is a simpli- 
fied diagram of an index file with pointers into the data file. 
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Figure G-2. The ISAM Index and Data Files 


Naming Convention for the ISAM File Structures 


B 1000 ISAM files have been designed so that internal file management is handled completely by the 
operating system. The naming convention for ISAM files is as follows: 


The internal-file-name is the name assigned to a file by the programmer in the SELECT statement of 
the source program. The external-file-name is the name assigned to a file on disk by the operating sys- 
tem during creation of the file. The external-file-name has the following form: 


<family-name > / < first-name > /<second-name>. 


Family-name is the pack identifier of the file. First-name is always present. When file security is uti- 
lized, second-name is the file identifier and first-name is the user code. Second-name is optional when 
there is no file security. The B operating system limits each part of the external-file-name to ten char- 
acters. This nomenclature is explained further in the B 1000 Systems System Software Operation Guide, 
Volume 1. It is possible to change the external-file-name after creation, but for purposes of this discus- 
sion, the external-file-name is assigned at creation time and is dependent on how the creation program 
is executed and the VALUE OF TITLE clause (if present) in the source program. An ISAM file is 
referred to by the name of its global file. 


File Creation Without a User Code 


When an ISAM file is not created under a user code and the VALUE OF TITLE clause has not been 
specified, the associated files reside on the system disk and do not have a second-name. Their first- 
names are assigned using the ISAM naming convention: in this case a 2-digit numeric prefix is attached 
to the internal-file-name forcing truncation of the internal-file-name if it has more than eight charac- 
ters. The first-names of the associated files are shown below. 


File Type First Name 


<internal-file-name > 
< OOinternal-file-name > 
< Olinternal-file-name > 
< 02internal-file-name > 
through <99internal-file-name > 


global 

data 

primary index 
alternate index 
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When the VALUE OF TITLE syntax ‘is included in the source program, specification of a family-name 
overrides the system disk default. If both first-name and second-name are specified through the VAL- 
UE OF TITLE syntax, it is necessary for the second-names to be unique in the first eight digits. The 
external file identifiers are as follows: 


File Type External File Identifier 


< family-name > / < first-name > / < second-name > 

< family-name > / < first-name > / < 00second-name > 

< family-name > / < first-name > / <01second-name > 

< family-name > / < first-name > / < 02second-name > 
through <99second-name > 


global 

data 

primary index 
alternate index 


When a second-name is not specified, the ISAM naming convention applies to the first-name as fol- 
lows: 


File Type External File Identifier 


< family-name > / < first-name > / 

< family-name > / < 00first-name > / 

< family-name > / < 01 first-name> / 

< family-name > / < 02first-name > / 
through <99first-name > / 


global 

data 

primary index 
alternate index 


File Creation Under a User Code 


When an ISAM file is created under a user code and a VALUE OF TITLE clause is not specified, 
the user code becomes the first-name and the internal-file-name becomes the stem for attaching the 
numeric prefix as above, but now this becomes the second-name of the external-file-name. The default 
pack for the user code is the family-name. 


File Type External File Identifier 


<default pack>>/<(user code) >/<internal-file-name > 

<default pack >/<(user code) >/< 00internal-file-name > 

<default pack >/<(user code) >/<Olinternal-file-name > 

<default pack >/<(user code) >/< 02internal-file-name > 
through <99internal-file-name > 


global 

data 

primary index 
alternate index 


Hol ou a 


When an ISAM file is created under a user code, the VALUE OF TITLE clause can override the de- 
fault pack; otherwise, the family-name is the default pack for the user code. An ISAM file created 
under a user code will always have a first-name and second-name. The VALUE OF TITLE clause can 
override the user code as the first-name, but the ISAM naming convention for the associated files is 
always applied:to the second-name of the file. 


When an ISAM file is opened output, all of the associated files are created and entered into the disk 
directory at that time, automatically removing any existing files with the same names. For this reason, 
‘care should be taken to insure that names to which the ISAM naming convention is applied are unique 
to the first eight characters. For example, if the ISAM file Userl1/(SBPC)/Inventory exists and the file 
User1/(SBPC)/Inventors is opened output, creation of the data file for the Inventors file, 
User1/(SBPC)/00inventor, will remove the data file for the Inventory file. The same thing occurs for 
the primary index file, and alternate index files, if they exist. 
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Changing the Name of an ISAM File 


The B 1000 Systems operating system command CHANGE can be used to change the name of any 
of the associated files of an ISAM file individually, but this renders the files unusable as an ISAM 
file. The global file contains information needed by the operating system to process the associated files 
as an ISAM file. This information can only be changed using the system utility program SYSTEM/IS- 
MAINT as described later in this appendix. ° 


ISAM ACCESS METHODS 


The access method for an ISAM file can be SEQUENTIAL, RANDOM, or DYNAMIC. Programming 
examples are located at the end of this appendix. 


Sequential access refers to access via ascending order of the key of reference. The primary key is the 
default key of reference. In order to change the access path, the START verb must be specified, with 
the data-name referring to the name of the key desired. For the necessary syntax for the START state- 
ment, refer to section 7 in this manual. 


Random access requires specification of a key value. The key of choice is declared in the syntax of 
the READ, WRITE and DELETE statements (refer to section 7). 


Dynamic access allows the user program to use either sequential access or access via key value. 


MULTIPLE USERS OF AN ISAM FILE 


An ISAM file may have more than one user at any one time and still retain its integrity. A user is 
loosely defined as an “opener” of the file. A program may open one ISAM file with more than one 
access method at the same time, and/or more than one program can open the file at the same time. 
The latter represents multiple users of the file. The internal-file-names within one program must be 
unique in the SELECT statements, while the VALUE OF TITLE clauses in the FD statements relate 
the internal-file-names to the same physical file for all users. 


As each user opens the file, the operating system creates a File Information Block (FIB) connecting 
that user to the only copy of the global file in memory for the ISAM file. The FIB contains informa- 
tion specific to that user and remains in memory until the user closes the file. 


The global file contains all the information needed for system management of the file. It points to 
and contains information on all of the structures of the ISAM file. When in memory, each block of 
the data file is one buffer, and each table of the index files is also one buffer. As many buffers as 
needed are in memory at any one time, but there is never more than one copy (the latest) of any one 
block. There is a current-pointer for each user that associated with each index file in memory. This 
current maintains the pointer into that index file for the user. 


Since there is only one copy of any of the ISAM structures in memory at any time, each user has 
access to the most recent data for the ISAM file. Simultaneous updating of an ISAM file does not 
occur since a buffer being updated is marked by the operating system and cannot be used by any other | 
process until that update is completed. Figure G-3 is a simplified diagram relating two users and one 
ISAM file in memory. STRUCTURE 0 represents the data file and STRUCTURE 1. ial the pri- 
mary index file. 
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USER 1 WSER 2 


re GLOBAL 


STRUCTURE 0 
| BUFFER 1 BUFFER 2 eee 8.0 


STRUCTURE 1 


CURRENT-1 


BUFFER 1 ++ curren2 fo SUES. aes = eee 


Figure G-3. Relationship of Two Users to the ISAM Structures 


CURRENT-2 | 


G18662 


When an update to a record in an ISAM file occurs, each buffer that has been changed is marked 
by the operating system as needing to be written to disk. As long as the operating system has no de- 
mand on the memory space, those buffers remain in memory. The actual physical file on disk is not 
updated until the I/O occurs and the buffers are written to disk. When an update user closes the file, 
the ISAM file is written from memory to disk even if other users remain attached to the ISAM file. 


The AUDITED file attribute was introduced for ISAM files as“a patch to the B 1000 System Software 
in the Mark 10.0 release. Use of this attribute reduces the possibility for data loss in case of a system 
halt when an ISAM file is open for update. 


The AUDITED File Attribute 


The AUDITED file attribute is especially designed for maintaining the integrity of an ISAM file in 
an online environment where the actual I/O time is small compared to the elapsed time. When VALUE 
OF AUDITED IS TRUE is specified in the FD description, or the codefile is modified to true for this 
attribute of the ISAM file, each update to the file is written to disk before control is returned to the 
program. If a system halt occurs when an audited ISAM file is open for update, recovery procedures 
for that file are simplified considerably, as seen in table G-3. 


When an ISAM file is open for update, it is possible that the operating system is 1) updating the global 
file or one of the index files, 2) updating the data file, or 3) not doing an update at all. Recovery 
of an ISAM file after a CLEAR/START depends on which of these three possibilities was happening 
and whether or not the file was AUDITED. Table G-3 lists the recovery procedures for all cases. The 
entries in this table reflect operating system messages that are issued the first time the file is opened 
as an ISAM file after a CLEAR/START operation. 
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Table G-3. ISAM File Recovery 


AUDITED NOT AUDITED 


Global or index Must rebuild or OK to Must rebuild or run 
file update in continue SYSTEM/ISVERIFY to 

process verify validity of file 

Data file update Message indicates possible Must rebuild or run 
in process loss of one data record, SYSTEM/ISVERIFY to 

continuation is automatic verify validity of file 

No updates in Message indicates file Must rebuild or run 
process open for update during SYSTEM/ISVERIFY to 

system halt, continuation verify validity of file 


is automatic 


When there are multiple users of an ISAM file, the file remains in an audited state until all users 
specifying AUDITED have closed the file. Since only one copy of the file is in memory, while one 
user is auditing, all users are auditing. 


Rebuilding an ISAM file can be accomplished by a user program similar to the example at the end 
of this appendix or by use of the B 1000 system utility program, CREATE/ISAM. 


SYSTEM UTILITY PROGRAMS FOR ISAM FILE MAINTENANCE 


Three B 1000 system utility programs exist for specific use with ISAM files: CREATE/ISAM, 
SYSTEM/ISVERIFY, and SYSTEM/IS-MAINT. They are explained briefly below. Refer to the B 1000 
Systems System Software Operation Guide, Volume 2, for more detailed information on each program. 


CREATE/ISAM 


The purpose of this utility program is to generate an ISAM file from an existing data file. The existing 
data file can be an ISAM data file or a sequential data file. 


The CREATE/ISAM utility program may be executed by means of three interfaces; a screen interface, 
an ODT interface and a card interface. 


This utility program can be used to create the associated files on different disk packs or on a default 
pack. It can be used to build an ISAM file with added, deleted or altered keys for special purposes, 
while maintaining the original file. In the case of file recovery, the utility program can be used to re- 
create an ISAM file whose global or index files have become corrupt. 


The CREATE/ISAM utility program should not be used to rebuild an ISAM file if new blocking is 
desired. The blocking factors of the input data file are used to create the blocking factors of the new 
ISAM. data file. The user has control over this information only with a user program. 


The CREATE/ISAM ‘utility program does not allow creation of an ISAM file whose output data file 
has the same file identifier as the input data file. 
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SYSTEM/ISVERIFY 


The purpose of this utility program is to verify the integrity of an ISAM file. The program will: 


List information contained in the global file 

List structure information for data and index files 
Verify mapping of index file(s) onto the data file 
Verify global file information 


Verify the overall structure of all index files 
Notify the user about the condition of the ISAM file 


When the SYSTEM/ISVERIFY utility program finds that there is no problem with the integrity of 
the file, it changes the integrity bit in the cluster file allowing user access to the ISAM file. 


It is not possible for any system utility program to verify the integrity of the data within the ISAM 
data file. This can only be accomplished with a user program, because only the user knows what consti- — 
tutes valid data in his file. . 


SYSTEM/IS—~MAINT 


This system utility program performs library maintenance functions on ISAM files. A few of the more 
important commands and their functions are listed below. 


The CHANGE command is used to change the names of an ISAM file in the disk directory. At the 
same time, it modifies the data in the global file to reflect the new names. This command can only 
be used when the pack identifier remains the same. 


The COPY command may be used to copy all of the associated files of an ISAM file to another disk 
or to tape. Only the name of the global file need be entered, no matter how many index files exist. 
If the file is copied to another disk, the update command must be used to modify the information 
within the global file. 


The LIST ODT command lists the names of all the associated files of an ISAM file. It is good practice 
to use this command after any change to verify the accuracy of the changes. 


The UPDATE command is the only way to correct the information within the global file when it be- 
comes necessary to move an ISAM file or subfiles of the ISAM file to another disk pack. 


RPG COMPATIBILITY 


COBOL74 ISAM files can be accessed or created by RPG programs as well as COBOL74 programs. 
If an ISAM file is to be accessed by RPG programs, the key length must be limited to 23 alphanumeric 
bytes. For further information refer to the B 1000 Systems Report Program Generator (RPG) Reference 
Manual. 


PROGRAMMING EXAMPLES 


Three COBOL74 source programs are listed below. Each program demonstrates a variety of features 
and constructs described earlier in this appendix. 
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Creating an ISAM File 


BOG1 BH 
DGOB2G0 
GOB30O 
BBG49O 
OBO5BDG 
QBOBGODD 
DGOB7OO 
BOBBOS 
DBOIGH 
BGB1GWS 
GO1L1BD 
BO1L2GOD 


IDENTIFICATION DIVISION. 
PROGRAM-ID. CREATE-ISAM. 
ENVIRONMENT DIVISION. 


CONFIGURATION SECTION. 


B1GO0. 
B1Q0@. 


SOURCE-COMPUTER. 
OBJECT-COMPUTER. 


INPUT-OUTPUT SECTION. 


FILE-CONTROL. 
MYISAMFILE ASSIGN TO DISK 


GB1300 SELECT 
G14 ORGANIZATION IS INDEXED 

QG159B ACCESS IS DYNAMIC 

GG168B RECORD KEY IS EMPL-NUM 

GG17GH ALTERNATE RECORD KEY IS EMPL—-NAME 

GBG188oH ALTERNATE RECORD KEY IS DEPARTMENT 

GB1LIO7" WITH DUPLICATES 

OGH2WGHD FILE STATUS IS ISAM~STAT. 

GBV21GOD . 

982208 DATA DIVISION. 

QBG23GP7 

002400 FILE SECTION. 

982508 FD MYISAMFILE 

QO2EWO RECORD CONTAINS 89 CHARACTERS 

GB27OGO BLOCK CONTAINS 16 RECORDS 

GG2BHS VALUE OF TITLE IS ISAM-NAME 

BGH29BB VALUE OF AREAS IS 185 

GH3GHB VALUE OF AUDITED IS FALSE. 

Q0B3182 

003200 @1 ISAM-REC. 

QB3 302 05 EMPL-NUM. 

GB34B2 18 SOC-SEC PIC X(1l). 

GH358C 1@ DEPARTMENT PIC X(4). 

GB360H G5 EMPL-NAME PIC X(2@). 

9G378B 95 FILLER PIC X(54). 

GV380G2 

993908 WORKING-STORAGE SECTION. 

0G4908 G1 ADD-COUNT PIC 9(4) VALUE ZERO. 
0841900 @1 REJECT-COUNT PIC 9(4) VALUE ZERO. . 
294208 G1 ADD-MORE-FLAG PIC X(3) VALUE "YES". 
GG430G 88 THATS-ALL VALUE "NO". 

984490 G1 ISAM-STAT PIC XX VALUE SPACES. 
GV460G 88 WRITEOK VALUE "@@", "@2". 

084708 @1 ISAM-NAME PIC X(35) VALUE SPACES. 
OB4800 
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284990 PROCEDURE DIVISION. 


BO5BdO 


835188 PUT-FILE-IN-DIRECTORY. 
DISPLAY "THIS PROGRAM IS GOING TO REMOVE OLD FILE ". 


BO5208 
BO530O 
GB5400 
GO55O0 
GB56GH** 
QBB570HO** 
BB58GO** 
GB5IO7 


MOVE "(KARIN)/C74ISAM ON S" TO ISAM-NAME. 
OPEN OUTPUT MYISAMFILE. 
CLOSE MYISAMFILE. 


ALL OF THE ASSOCIATED FILES ARE IN THE DISK id 
DIRECTORY, AND CAN BE ACCESSED BY OTHER USERS AT oo 
THIS TIME. wy 


GBOGGG LOAD-DYNAMIC. 


GGJO1GBH 
QPBHO2GH 
GBO2OG5 
OBO210 
GBO380 
GBC490 
OGBO5OG 
BGGO6GH 
G9679B 


CHANGE ATTRIBUTE AUDITED OF MYISAMFILE TO TRUE. 
OPEN I-O MYISAMFILE. 
IF ISAM-STAT NOT = "9G" — 
_ DISPLAY “STATUS IS " ISAM-STAT. 
PERFORM GET-INFORMATION UNTIL THATS-ALL. 
PERFORM DISPLAY-TOTALS. 
CLOSE MYISAMFILE SAVE. 
STOP RUN. . 


t 


O0G6800 GET-INFORMATION. 
DISPLAY "ENTER EMPLOYEE NAME: LAST NAME, FIRST NAME". 


BGBOIDS 
GB7DOO 
GO71 08 
GO7206 
HG7390 
GO74 HB 
GO759OH** 
GB7EGH 
GB7790 
GB7BHO 
GO7IOYD 
GOBWOD 
088100 
GBB2GO 
GBGB39O 


ACCEPT EMPL-NAME. 


DISPLAY "ENTER SOCIAL SECURITY NUMBER: XXX-XX-XXXX". 


ACCEPT SOC-SEC. 
DISPLAY "ENTER 4-DIGIT DEPARTMENT NUMBER". 
ACCEPT DEPARTMENT. 


VALIDATION PROCEDURES FOR EACH ENTRY GO HERE. id 


PERFORM RANDOM-WRITE. 
IF WRITEOK . 

DISPLAY "ENTRY ADDED" 
ELSE 
DISPLAY "ENTRY NOT ADDED, STATUS = " ISAM-STAT. 
DISPLAY "MORE RECORDS TO ADD, YES OR NO? " 
ACCEPT ADD-MORE-FLAG. 


028480 RANDOM-WRITE. 


GO8BO0D 
GO8B8HOS 
DGBBIOD 
OGOIDDS 
GGI1GS 


WRITE ISAM-REC INVALID KEY 
ADD 1 TO REJECT-COUNT. 
IF WRITEOK 
ADD 1 TO ADD-COUNT. 


Q8920G@ DISPLAY-TOTALS. 


909300 
989488 
Q095 20 
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DISPLAY "RECORDS ADDED = " ADD-COUNT. 
DISPLAY "RECORDS REJECTED = " REJECT-COUNT. 
DISPLAY " ****** GOOD-BYE ******#", 
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Updating an 


QGOG1 GH 
DBBW2GO 
GOO3GO 
DOD4AGOD 
BGOS5OGO 
DOSOOO 
WOD7OO 
COBBAO 
BGOGIGD 
GBQ1GHD 


 OG1100 


GG12060 
0B1390 
GG1400 
GO1L5GD0 
GO1609 
GG17B2 
GG1800 
GB1IDO 
GO20G0D 
GO210G0 
GB2200 
GB2300 
OGB24BH 
GO250O 
GO20HD 
GGQ270H 
GB28GO0 
OG2IGD 
GB3IGOBD 
GG3180 
GB3200 
9G3300 
GV3400 
093500 
GB3 600 
GB3 78H 
GB3 89D 
BGB39GB 
DG4GGO 
GG41 00 
GB42 GO 
GG4300 
GO4400 
OB4590 
OO4000 
GB47BO 
OG4800 
GBBG499O 
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ISAM File 

IDENTIFICATION DIVISION. 
PROGRAM-ID. UPDATE-ISAM. 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 


SOURCE-COMPUTER. 
OBJECT-COMPUTER. 


B1 G00. 
B1@O0. 


INPUT-OUTPUT SECTION. 


FILE-CONTROL. 

SELECT MYISAMFILE ASSIGN TO DISK 
ORGANIZATION IS INDEXED 
ACCESS IS DYNAMIC 
RECORD KEY IS EMPL-NUM 
ALTERNATE RECORD KEY IS EMPL-NAME 
ALTERNATE RECORD KEY IS DEPARTMENT 

WITH DUPLICATES 


FILE STATUS IS ISAM-STAT. 
DATA DIVISION. 
FILE SECTION. 
FD MYISAMFILE 
VALUE OF TITLE IS ISAM-NAME 
VALUE OF AUDITED IS TRUE. 
G1 ISAM-REC. 
05 EMPL-NUM. 
19 SOC-SEC PIC X(1l). 
10 DEPARTMENT PIC X(4). 
@5 EMPL-NAME PIC X(2@). 
5 EVENT PIC X(1@). 
@5 EVENT-DATE PIC 9(6). 
05 FILLER PIC X(38). 
WORKING-STORAGE SECTION. 
G1 ISAM-STAT PIC XX 
88 DELETEOK VALUE "@@". 
88 READOK VALUE "@@", "@2". 
88 WRITEOK VALUE "9G", "@2". 
88 END-OF-FILE VALUE "10". 
88 INVALID-KEY VALUES "21", “%22",. M23",. Toa". 
88 END-DUP-KEY VALUE "@@". 
G1 ISAM-NAME 


PROCEDURE DIVISION. 


VALUE SPACES. 


PIC X(35) VALUE SPACES. 
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OO@56G0 MAIN-DRIVER. 


BOG51 0B 
OO520D 
0953060 
BGO549G 
OB5508 
BO5608 
Q0B570B 
OGO580H 
BB59BD 
QGWOSB 


MOVE "(KARIN)/C74ISAM ON S" TO ISAM-NAME. 
OPEN I-O MYISAMFILE. 

PERFORM READ-SEQUENTIAL-DEFAULT. 

PERFORM READ-SEQUENTIAL-ALTERNATE. 
PERFORM ADD-RANDOM-WRITE. 

PERFORM UPDATE-RANDOM-REWRITE. 

PERFORM DELETE-RANDOM. 

CLOSE MYISAMFILE. 

STOP RUN. 


006190 READ-SEQUENTIAL-DEFAULT. 
9V620G9** AFTER OPEN, CURRENT RECORD POINTER FOR THIS USER IS ** 
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. OGG6380** POSITIONED AT FIRST RECORD OF PRIMARY KEY. aie 
BB6400 PERFORM READ-NEXT UNTIL END-OF-FILE. 
GBBO5OGD DISPLAY "THIS IS THE END OF THE FILE.". 
DOCOODD . 
026708 READ-SEQUENTIAL-ALTERNATE. 
GGeSG@o** IT IS NECESSARY TO CHANGE THE KEY OF REFERENCE rn 
OS698O** WHEN READING SEQUENTIALLY VIA AN ALTERNATE KEY. = 
OO7O90O** THE START STATEMENT CHANGES THE KEY HERE. no 
GO71 BH MOVE "PA&S" TO DEPARTMENT. 
GO729D START MYISAMFILE KEY IS EQUAL TO DEPARTMENT 
GO7308 INVALID KEY 
GD74 08H DISPLAY "NO RECORDS FOR DEPARTMENT PA&S". 
GO75ODP 
@G7690** THE FILE STATUS IS "98" WHEN THE START IS © ed 
@8770@** SUCCESSFUL. IT BECOMES "@2" AFTER A SUCCESSFUL ee 
OO@78O9O0** READ.....NEXT VIA AN ALTERNATE KEY PATH WITH ial 
QG79@@** DUPLICATES. ON THE LAST READ OF THE ALTERNATE KEY, ** 
OGG8GOO** THE FILE STATUS WILL CHANGE TO "@@".. IN ORDER TO ** 
QG81G@** USE THIS CHANGE OF STATUS TO MARK THE END OF THE iad 
Q98200** ALTERNATE KEY PATH, IT IS NECESSARY TO SET THE FILE** 
088300** STATUS TO A VALUE OTHER THAN "@@" BEFORE THE FIRST ** 
OP849@** READ.....NEXT OPERATION IS PERFORMED. ia 
BOB5OG IF ISAM-STAT = "@@" 
BGIBOOD MOVE "XX" TO ISAM-STAT 
GO8B7BO PERFORM READ-NEXT UNTIL END-DUP-KEY 
BGOBEIO DISPLAY "END OF DEPARTMENT " DEPARTMENT. 
BGBBIDD 
QO@IGGO@ READ-NEXT. 
BGI1GBO READ MYISAMFILE NEXT AT END 
QGBI2GD NEXT SENTENCE. 
BGPI3ZGBD IF READOK 
BOI4ADD DISPLAY "SEQ READ ON " EMPL-NAME " " DEPARTMENT. 
GBI5SGD 

G-15 
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989600 ADD-RANDOM-WRITE. 
MOVE "KO" TO EMPL-NAME. 
MOVE "571-92-2758UCSC" TO EMPL-NUM. 


QGBITOO 
GOIBSD 
OBBIIBDS 
G1 GOOD 
010190 
G1 G20 
G1 0300 
J1G400 
018500 


MOVE "NEW HIRE 


" TO EVENT. 


MOVE "858623" TO EVENT-DATE. 


WRITE ISAM-REC 


INVALID KEY 
DISPLAY "INV. 


IF WRITEOK 


DISPLAY "RECORD ADDED " EMPL-NAME EMPL-NUM. 


919690 UPDATE-RANDOM-REWRITE. 


B1G7GO** 
“G1 BBSO** 
G1 BIGS** 


G1190 
G111080 
911200 
G113080 


0114960 
G115900 


0116906 
G11769 
G1180D0 
011908 
G1 2000 
QG121080 
912200 
G12300 
G12460 
912500 
012600 


A REWRITE OPERATION MUST FOLLOW A SUCCESSFUL READ. 
THEREFORE, IT IS IMPERATIVE TO CHECK FILE STATUS . 


AFTER THE READ, BEFORE THE REWRITE. 
MOVE "565-5@-7656PA&S" TO EMPL-NUM. 
READ MYISAMFILE INVALID KEY 


IF 


LE 


DISPLAY "INVALID READ ON " EMPL-NUM. 
READOK 
MOVE "PROMOTION " TO EVENT 
MOVE "849193" TO EVENT-DATE 
REWRITE ISAM-REC INVALID KEY 

DISPLAY "INVALID REWRITE ON " EMPL-NUM. 
WRITEOK 


DISPLAY "UPDATE OK ON " EMPL-NAME " " EMPL-NUM. 


DELETE-RANDOM. 


MOVE "193-29-4373PA&S" TO EMPL-NUM. 
DELETE MYISAMFILE INVALID KEY 


iF 


DISPLAY "INVALID DELETE ON " EMPL-NUM. 
DELETEOK 
DISPLAY "DELETE OK ON " EMPL-NUM. 


KEY ON WRITE " EMPL-NAME EMPL-NUM. 


kk 
kk 
kk 


DBL19 
QBG2OO 
G2H300 
DOGO 
DQB5OO 
 QBLGEBO 
QBO70O 
PHSB 
BLSIWGO 
GB1 G00 
001102 
GG1200 
201300 
031490 
GB1500 
21600 
GG1700 
BG18BO 
00198 
YO2OBO 
202192 
002200 
0G2300 
002490 
OG2500 
G2 608 
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Rebuilding an ISAM File from an ISAM DATA File 


IDENTIFICATION DIVISION. 
PROGRAM-ID. REBUILD-ISAM. 
ENVIRONMENT DIVISION. 


CONFIGURATION SECTION. 


SOURCE--COMPUTER. B1GO0. 
OBJECT-COMPUTER. B1G02. 
INPUT-OUTPUT SECTION. 


FILE-CONTROL. 
SELECT OLDDATAFILE ASSIGN TO DISK 
ORGANIZATION IS RELATIVE 
ACCESS IS SEQUENTIAL 
FILE STATUS IS RELA-STAT. 


SELECT MYISAMFILE ASSIGN TO DISK 

ORGANIZATION IS INDEXED 

ACCESS IS DYNAMIC 

RECORD KEY IS EMPL-NUM 

ALTERNATE RECORD KEY IS EMPL-NAME 

ALTERNATE RECORD KEY IS DEPARTMENT 
WITH DUPLICATES 

FILE STATUS IS ISAM-STAT. 


@8270@0 DATA DIVISION. 


GO2BHH 
GBB2IOD 
GB3IOGS 
GB31G0 
GO3200** 
QGB33G0** 
GB34G0G** 
OV350G** 
OBHI6GD** 
QG37O9B** 
0B3 800 
QB398G Ol 
GB4ABOD 
OG4108 FD 
GB4200 
GB4300 
OB44008 
OB4500 
GG4OGG* * 
GB47GOH** 
GB4ABOS** 
OB49GG** 
OB5OSB** 
OB5190** 
OB52GG** 
OB538G** 
GB549G** 
WG5500** 
GO5SOGH** 
GB57OHO** 
OGB5B8SO** 
OB598G G1 


CASE, 
ISAM FILE GREATER. 
FOR THE AREALENGTH WILL FORCE THE NUMBER OF BLOCKS ** 
PER AREA TO 1808, WITH THE SAME INPUT VALUES OF 16 ** 
AND 185 MAXIMUM AREAS. 
DOUBLES THE CAPACITY OF THE NEW ISAM FILE BUT NONE ** 
OF THE OLD UPDATE PROGRAMS NEED BE RECOMPILED. 
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FILE SECTION. 
FD OLDDATAFILE 
VALUE OF 
THERE ARE 89 


580 
CREATED BY THE USER PROGRAM, 
THIS FILE IS OPENED INPUT, THESE VALUES DO NOT 
HAVE TO BE INCLUDED IN THIS PROGRAM. 


RELA-REC 


MYISAMFILE 


BLOCK CONTAINS 16 RECORDS 


VALUE OF TITLE IS ISAM-NAME 


VALUE OF AUDITED IS FALSE 
VALUE OF AREALENGTH IS 14269990. 


RECORDS PER BLOCK, 


QGBOWDH 
QBO61GDG 
GHO20G 
QGB6300 
GBWBO40D 
OGBO5BOB 
QBOOOD 


ISAM-REC. 
05 EMPL-NUM. 
18 SOC-SEC 
18 DEPARTMENT 
05 EMPL-NAME 
05 EVENT 
65 EVENT-DATE 
85 FILLER 


QOGO7TBD 


TITLE IS RELA-NAME. 

CHARACTERS PER RECORD, 
RECORDS PER BLOCK AND 
BLOCKS PER AREA FOR THIS FILE, AS 
CREATE-ISAM. 


PIC X(89). 


SINCE 


x* 
kk 
** 
kk 
**k 
kk 


ONE REASON FOR REBUILDING AN ISAM FILE WITH A USER ** 
PROGRAM IS TO CHANGE THE BLOCKING FACTORS. IN 
IT IS DESIRED TO MAKE THE CAPACITY OF THE NEwW** 


THIS ** 


SPECIFYING A VALUE OF 1426200 ** 


086800 WORKING-STORAGE SECTION. 


QO6IBD G1 
QBB7OOD 
GB71 GD 
007200 
OB730G8 G1 
GO740G 
QBB750O0 
QOB76GHOH O1 
Q0B77OD 
GB7BHOD 
QGB79BOH O1 
OBQBOGO Ol 
G981 BOB 


RECORD-COUNTS. 
05 READ-COUNT 


G5 GOOD-WRITE-COUNT 
05 BAD-WRITE-COUNT 


ISAM-STAT 


88 WRITEOK 
88 INVALID-KEY 


RELA-STAT 
88 READOK 


88 END-OF-FILE 


ISAM-NAME 
RELA-NAME 


VALUE 
VALUE 


VALUE 
VALUE 


"BQ", 


ia Cala 


"OO", 
"1g" r 


PLC 
PIC 
PIC 
PIC 
PIC 
PIC 


X(11). 
X(4). 
X(2@). 
X(1@). 
9(6). 
X(36). 


Pic: 9(6) 
PIC 9(6) 
PIC 9(6) 
PIC XX 
Bae GP eae 
Dy 
PIC XX 
a Par 


aor eee 


THIS 


AUDITING A REBUILD PROGRAM SUCH AS THIS IS NOT 
PRACTICAL SINCE IT WOULD BE LESS TIME CONSUMING TO ** 


RE-EXECUTE THE PROGRAM IN CASE OF A FAILURE. 


VALUE 
VALUE 
VALUE 
VALUE 


VALUE 


PIC X(35) VALUE 
PIC X(35) VALUE 


“ERO. 
ZERO. 
4ERO. 
OPACES. 


aa! Laem 


SPACES. 


SPACES. 
SPACES. 
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QGG820G0 PROCEDURE DIVISION. 


GV83 0B 

0098400 REMOVE-OLD-ISAM. ; 
008580** THE OPEN OUTPUT STATEMENT WILL REMOVE ALL OF THE 7s 
GVBEGO** ASSOCIATED FILES OF THE OLD ISAM FILE SO IT IS am 
©G87@00** ABSOLUTELY NECESSARY TO CHANGE THE NAME OF THE OLD ** 
OGG8800** DATA FILE BEFORE THIS PROGRAM IS EXECUTED. a 
OBBIGG** EXAMPLE: es 
OBGIGGOG** *Z USER KARIN/BESTFRIEND CHANGE @@C74ISAM TO OLDDATA** 
OGI1 GOH MOVE "(KARIN)/C74ISAM ON S" TO ISAM-NAME. 

BPGI2GD OPEN OUTPUT MYISAMFILE. 

BGUI3ZGDG CLOSE MYISAMFILE. 

QOHIABD 

O0O69580 PROCESS-TRANSFER-OF-DATA. 

QGIJICWDD MOVE "(KARIN)/OLDDATA ON S" TO RELA-NAME. 

GGITOO OPEN I-O MYISAMFILE. 

BUIBBS OPEN INPUT OLDDATAFILE. 

GGIWWS PERFORM READ-AND-WRITE-LOOP UNTIL END-OF-FILE. 

G1 GOOD CLOSE MYISAMFILE 

G1 0109 OLDDATAFILE. 

G1G200 PERFORM TOTALS. 

G10309 STOP RUN. 

G1G409 

Q1850@ READ-AND-WRITE-LOOP. ~* 

G1 Gods READ OLDDATAFILE AT END ‘ 

G1B7GO DISPLAY "END OF OLD DATA FILE". 

G1 0808 IF READOK 

G1 90900 ADD 1 TO READ-COUNT 

G1l1IGOGP WRITE ISAM-REC FROM RELA-REC INVALID KEY 

G11100 ADD 1 TO BAD-WRITE-COUNT 

G11200 DISPLAY "INVALID WRITE ON " EMPL-NUM. 

G113900 IF READOK AND WRITEOK 

01140 ADD 1 TO GOOD-WRITE-COUNT. 

G11599 

G116900 TOTALS. 

Q911790¢ DISPLAY "READS ON OLD DATA FILE = " READ-COUNT. 
G118SA@ DISPLAY "WRITES TO NEW ISAM FILE = " GOOD-WRITE-COUNT. 
G11982 DISPLAY "BAD WRITES TO NEW FILE = " BAD-WRITE-COUNT. 
G1 2GOP DISPLAY "****** GOOD-BYE ******", 
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[ ] (brackets) 2-2 

- (period) 2-2 

-. (ellipsis) 2-2 
(semicolon) 2-2 
(comma) 2-2, 2-3 
(at sign) 2-11 
(apostrophe) 2-1 

" (quotation mark) 2-19 

{ } (braces) 2-1 


-"@M* ee e 


ACCEPT 7-34 

ACCEPT MESSAGE COUNT 7-36 

ACCESS MODE 5-12 

ADD 7-37 

Advantages of COBOL74 xxi 

Algebraic Signs 2-15 

alignment rules 2-16 

ALL<literal> 2-8 

ALTER 7-12, 7-4@ | . 3 | 
ANSI 74 COBOL, Burroughs extensions to xix 
AREALENGTH 8-8 

AREAS 8-8 | 
arithmetic expression rules 7-15 

arithmetic expression, characters used in 2-3 
Arithmetic Expressions 7-15 

Arithmetic Operators 7-15 

Arithmetic Statements 7-39 

ASCII-7 sequence, B 198990 codes in C-7 

AT END 5-18, 7-3 

ATTERR 8-8 

attributes, explicit and implicit 2-23 
AUDITED 8-8 é 

AUDITED file attribute G-9 


BACKUPKIND 8-8 
BACKUPPERMITTED 8-8 
BCI (Block Control Information) G-4 
BEGIN-TRANSACTION 9-11 
BLANK WHEN ZERO 6-25 
BLOCK 8-8 

BLOCK CONTAINS 6-8 
blocking, data file G-5 
BLOCKSIZE 8-8 
BLOCKSTRUCTURE 8-8 
Braces 2-1 

Brackets 2-2 

BUFFERS 8-9 


CALL 7-41 
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CANCEL 7-45 
CD (communication description) files F-14 
CENSUS 8-9 
CHANGE 8-5 
CHANGEDSUBFILE 8-9 
CHANGEEVENT 8-9 
Character Set 2-2 
Character-Strings 2-5, 6-35 
PICTURE 6-35 
Characters Used for Words 2-3 
Characters Used in Arithmetic Expressions 2-3 
characters used in editing 2-3 
characters used in punctuation 2-3. 
Characters Used in Relation Conditions 2-4 
characters used in words 2-3 
characters, control and special C-7 
characters, special 2-2 
CLOSE 7-46, 9-12 
COBOL74 COMPILER CONTROL 11-1 
COBOL74 Syntax Summary B-1l 
Format 1: B-2 
Format 2: B-2 
General Format for Environment Division B-2 
General Format for Identification Division B-l 
CODE-SET 6-194 
Codes C-1l 
CODING FORM 3-1 
Area A (Positions 8 through 11) 3-3 
Area B (Positions 12 through 72) 3-3 
Blank Lines 3-4 
Field Definitions 3-1 
General 3-1 
Identification (Positions 73 through 80) 3-4 
Indicator Area (Record Position 7) 3-1 
Punctuation 3-4 
Right Margin (Position 72) 3-3 
Sample Coding 3-4 
Sequence Area (Record Positions 1-6) 3-1 
Coding the ENVIRONMENT DIVISION 5-26 
Coding the FILE SECTION 6-6 
Coding the LINKAGE SECTION 6-61 
Coding the WORKING-STORAGE SECTION 6-58 
combined relation conditions, abbreviated 7-25 
comma 2-2 
communication description (CD) files F-14 
Communication Description Structure 6-66 
COMMUNICATION SECTION 6-65 
Compiler control 11-1 
+integer 11-6 
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? COMPILE record 11-2 
Boolean Expressions 11-4 
CCI Options 11-4 

CODE 11-5 

Compilation Source File 11-2 
DEBUG ERRMESS 11-5 

DEBUG TIME 11-5 

DELETE 11-5 

DOUBLE 11-5 

FEDLEVEL = integer-1 11-6 
file illustration 11-2 
General l1-l 

Input 11-1 

integer 11-6 

LIBRDOLLAR 11-5 

LIST 11-5 
LISTDELETED 11-5 
LISTDOLLAR 11-5 
LISTOMITTED 11-6 

LISTP 11-6 

LIST1 11-5 

MAP .11-6 

MERGE 11-6 

NEW 11-6 

NEWID 11-6 

Nonnumeric literal 11-6 
Normal Boolean Options 11-5 
OMIT 11-6 

Output 11-1 

PAGE 11-6 

Semantics: 11-4 

SEQCHECK 11-6 

SEQUENCE 11-6 

STATISTICS 11-6 

SUMMARY 11-6 

Syntax: 11-4 
user-defined options 11-4 
VOID 1l- 

WARNFATAL 11-6 

WARNSUPR 11-6 

XREF 11-6 

XSEQ 11-6 


Compiler-Directing Sentences 7-4 
Compiler-Directing Statements 7-4 
COMPRESSION 8-9 

COMPUTE 7-52 

Concepts, COBOL74 xxi 


ANSI 68 COBOL xxii 
compiler xxi 
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interpreter xxi 
MCP xxii 
S-code xxi 
Concepts, language 2-1 
Condition Evaluation Rules 7-26 
Condition-Name 2-6, 2-17 
Condition-Name Rules 6-55 
Conditional Expressions 7-18 
Conditional Sentences 7-4 
Conditional Statements 7-3 
Conditional variable 7-21 
Complex Conditions 7-22 
Conditions, combined 7-22 
Conditions, negated 7-23 
CONFIGURATION SECTION 1-2 
Connectives 2-8 
control characters C-7 
Control Relationship Between Procedures 7-6 _ 
control transfers, explicit and implicit 2-22 | 
COPY 7-53 . : 
copyrights, authorizations for use of xix 
CORRESPONDING Phrase 7-29 . 
CREATE 9-13 
CREATIONDATE 8-9 
currency symbol 6-39 
Current Record Pointer 5-13 
CURRENTBLOCK 8-9 


Data 2-15 
alphabetic 2-15 
alphanumeric 2-15 
classes 2-15 
numeric 2-15 

data base item qualification 9-2 
Selection Expressions 9-2 

DATA BASE MANAGEMENT 9-1 

Data Base Reference Format 9-1 
‘Syntax Rules: 9-1 

Data base selection expressions 9-3 
Set Selection Expression 9-4 

Data description entry, general format B-9 
Format 1: B-9 
Format 2: B-19 
Format 3: B-1@ 

Data Description Structure 6-22 

DATA DIVISION 1-1, 1-2, 6-1, B-36 
Data base management general format B-36 
definition 1-1 
General 6-1 
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organization 6-1 
structure 6-2 ; 
data items, Operations on 9-2 
DATA RECORDS 6-11 
data structures, operations on 9-2 
DATA-BASE SECTION 9-1 
Data Base Structure 9-1 
Data-Name 2-6 
DATA-NAME or FILLER 6-26 
DEBUG I1d-1 
Compile-Time Switch 19-1 
DEBUG example 19-19 
DEBUG-ITEM 19-1 
Debugging Lines 19-2 
DEGUG-ITEM implicit description 19-7 
ENVIRONMENT DIVISION 19-3 
General 19-1 
General Format: 19-3, 19-4 
General Rules: 190-3, 19-5 
Language Concepts 19-1 
Object-Time Switch 19-1 
PROCEDURE DIVISION 19-4 
Syntax Rules: 19-4 
USE FOR DEBUGGING 10-4 
WITH DEBUGGING MODE 19-3 
DEBUG-ITEM 2-8 


Debugging and Diagnostic Facilities 19-12 


Declaratives 7-14 

DELETE 7-57, 9-14 

DENSITY 8-9 

DEPENDENTSPECS 8-9 

diagnostic facilities 19-12 
Compiler Limits 19-13 

DIRECTION 8-9 

DISABLE 7-58 

DISPLAY 7-6 

DIVIDE 7-61 

divisions, program 1-1 

DMCATEGORY attribute 9-7 

DMERROR attribute 9-7 

DMSTATUS register 9-7 


EBCDIC sequence, B 19908 codes in C-l 
Editing Characters 2-3 

elementary items 2-14 

Ellipsis 2-2 

ENABLE 7-63 

END-TRANSACTION 9-15 

ENVIRONMENT DIVISION l-l, 1-2, 5-1 
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EXIT 7-65 
EXIT PROGRAM 7-66 
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EXTMODE 8-9 


FAMILYNAME 8-9 
Figurative Constant 2-8 
File 2-13 
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physical aspects 2-13 
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File Attribute-Name Descriptions 8-8 
FILE ATTRIBUTES 8-1 
File Concepts 5-9 
File Control Entry 5-19 
File Description Structure 6-3 
FILE SECTION 6-3 
FILE SECTION coding 6 6 
FILE SECTION record description 6-3 
FILE-CONTROL Paragraph 5-19 
File-Name 2-6 
FILEKIND 8-19 
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BLOCKED 8-11 
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CLOSEPENDING 8-11 
DEACTIVATED 8-11 
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OFFERED 8-11 
OPENED 8-11 
SHUTTINGDOWN 8-11 
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GO TO 7-67 
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HOSTNAME 8-12 


I-O Status 5-13 
I-O-CONTROL Paragraph 5-24 
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General 4-1 
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Imperative Statements 7-4 
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INSPECT 7-69 
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Inter-Program Communication (IPC) F-16 
INTNAME 8-12 
INVALID KEY 5-18, 7-3 
ISAM file concepts G-1 
ISAM file structure naming convention G-6 
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Execution of the PROCEDURE DIVISION 7-1 
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